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COMMODORE 


AKTUELE BIJLAGE BIJ COMMODORE DOSSIER 


, ONVERWACHT EEN NIEUWE? COMMODORE: 128D 


Het is niet de eerste keer dat 
een nieuwe machine van Com- 
modore door iemand anders 


wordt geintroduceerd dan de of- 


ficiéle importeur. De Rotter- 
damse firma Game World heeft 
dit keer het primeurtje van de 


128D, een 128 met in- of aange- 
bouwde 1571 diskdrive. Een op-— 


merkelijke machine vooral om- 
dat hij voor de lancering door 
Game World zelfs nog niet ge- 
noemd werd in het doorgaans 
welingelichte roddelcircuit. 

Het Rotterdamse bedrijf impor- 
leert de nieuwe computer uit 
Duitsland, zoals blijkt uit de 
bijgeleverde Duitse instructie- 
boeken. 

De 128D kan worden gerekend 
tot de zogenaamd verplaatsbare 
computers, dat wil zeggen dat 
hij eigenlijk te zwaar is om hem 
echt een middagje mee uit wan- 


COMMODORE DOSSIER AKTIEF verschijnt — 
12 keer per jaar. In februari, mei, au- 
gustus en november als bijlage in het 

hart van Commodore Dossier, in de overi- 
ge maanden als losse uitgave uitsluitend 
voor abonnees van Commodore Dossier. _ 
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delen te nemen, maar dat hij 
wel makkelijk mee kan op de 
achterbank yan de auto. Het 
grote verschil met de standaard 
128 is dat alles behalve het toet- 
senbord is ingebouwd in een 
systeemkast zoals we die kennen 
van de PC’s. In de systeemkast 
yan de 128D bevinden zich niet 
alleen de nieuwe 1571 diskdrive, 
maar ook de verschillende pro- 
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cessoren en transformatoren. 
Dat betekent in de eerste plaats 
dat het toetsenbord weliswaar 
dezelfde layout heeft als die van 


de normale 128, maar een stuk — 
korter is. Het kan voor vervoer 
in de systeemkast worden aan- 


gebracht. Uit de systeemkast 
komt nog maar één snoertje, al- 
le netvoedingen zijn dit keer 
weggewerkt. Om hitteproblemen 
te voorkomen heeft men meteen 


maar een ventilatortje inge- 


bouwd. Die zoemt hoorbaar, 
maar waarschijnlijk niet hin- 


. derlikk 


De prijs van het nieuwe appa- 


raat is niet kinderachtig: [2495,-. 
Dat is nog 100 gulden meer dan 


de prijs van de losse 128 en 
yg, 

De prijs van de 128 lijkt toch 
een belemmering te zijn voor de 
vlotte verkoop van de machine. 
Zelfs op de HCC dagen, waar 
toch altijd gestunt wordt, wer- 


den niet echt veel apparaten 
verkocht. De belangstelling is 
groot en de snelle kopers blij- 
ken enthousiast over het appa- 
raat, maar een nog grotere 
groep kijkt blijkbaar liever eerst 


nog even de kat uit de boom. 


Opmerkelijk is daarentegen dat 
de best verkochte computer van 
dit moment nog steeds de 


_CBM-64 is. Klaarblijkelijk 


wordt de computerhobbyist 


-_-zeer succesvol — 
Rabbit Systems BV uit Arnhem (085-435119) biedt de spectaculaire com- 
_ puter zelfs al te koop aan, voor schrik niet £6250,- exclusief monitor. 


‘TASWORD NEDERLANDS 


-worven voor de Commodore-versie van de bekende tekstverwerker Tas- 


steeds prijsbewuster. 


INTERFACE 
VOOR 
BROTHER 
AX 10 


AMIGA GESIGNALEERD 


Op de roemruchte HCC-dagen — ook dit jaar weer prijsatbrekend en 


werd voor het eerst in ons land de Amiga gesignaleerd. 


Dat betekent in elk geval dat één van onze medewerkers zich nu eens 


| uitgebreid achter het toetsenbord kan nestelen om te zien wat ‘het won- Het puur Nederlandse bedrijf 


der van Commodore’ nu echt in petto heeft. Zijn myer’ versie leest Specific Product Technology BV 
u in Commodore Dossier nummer 5. uit Wijk bij Duurstede 
(03435-73737) heeft bij de goed- 
kope en dus zeer populaire 
draagbare elektronische schrijf- 
machine AX 10 van Brother 
twee verschillende interfaces 
ontworpen, Een om het appa- 
word. Tasword is een zeer veelzijdige professionele tekstverwerker die raat als printer te laten dienen 
wellicht als belangrijkste kenmerk heeft dat zonder hardware-aanpassing bij een Commodore 64/128 en 
met 80 tekens per regel kan worden gewerkt. In die werksituatie is een een voor computers met een 


Filosoft (050-137 746) in Groningen heeft de Nederlandse rechten ver- 


__ goede monitor overigens wel een vereiste, anders kunt u wachten op een standaard centronics parallel 


stevige hoofdpijn. Filosoft levert een compleet Nederlandse versie van poort. Beide versies — printer 
het programma op schijf en cassette voor [99,-. met ingebouwd interface — 


_ LMA KOS £995,- exclusief BTW. 
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10.000 PLUS — 
We ee niet graag met 

onze bedrijfsgegevens, maar dit 

Keer hebben we een peers 


OVER MODULES EN ONTLUIZEN 


In deze extra lange aflevering 
komen we terug op eerder be- 
handelde Basicroutines. Boven- 
dien presenteren we u een wat 
groter programma, dat is opge- 
bouwd volgens het zogenaamde 
’module’-principe en dat mede 
daardoor zeer eenvoudig is uit 
te breiden en/of te ’ontluizen’. 
Eén van de grootste voordelen 
van het gebruik van modules is 
de tijdwinst voor de program- 
meur. De modules kun je name- 
lijk apart van elkaar testen, 
waarna je ze combineert tot één 
programma. Doordat de ver- 
schillende routines al in een 
vroeg stadium zijn uitgepro- 
beerd, wordt het aantal fouten 
tot een minimum gereduceerd, 
zodat er minder tijd verloren 
gaat aan het ’tracen’ enzo- 
voorts. 

Wat is een ’module’ nu eigen- 
lk? Met een ‘module’ bedoelen 
we een op zichzelf staand stukje 
programmatuur, dat een aantal 
belangrijke, afgeronde taken 
uitvoert. Dit stukje wordt, na- 
dat het ’ontluisd’ is, in het 
hoofdprogramma ingepast, 
waarna we aan de volgende mo- 
dule beginnen, totdat het gehele 
programma af is. 

We zullen de modules in de bij- 
gevoegde listing van ’joystick 
assault’ eens bekijken: 

1. regel 2000-2020: sprite data 
inlezen. 

2. regel 3000-3110: alles initiali- 
seren: de variabelen worden in- 
gesteld, de sprites worden aan- 
gezel, enzovoorts. 

3. regel 5000-5040: sprites wor- 
den op de uitgangsposities 
gezet. 

4, regel 6000-6030: een hele leu- 
ke! Deze module roept zelf weer 
drie andere modules aan. Ons 
uiteindelijk doel wordt over het 
scherm bewogen, ons kanon 
(het gaat dus om een schietspel) 


reden om even op te scheppen. 
Meteen na het verschijnen van 
nummer 4 (november) meldde 
de heer F.J.Sens uit Alphen aan 
den Rijn zich aan als abonnee. 


_ Hij was de 10.000ste. Omdat 
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wordt, aan de hand van een 
paar toetsindrukken, verplaatst 
en alles wat met de kogel te ma- 
ken heeft, wordt getest. 

5. regel 7000-7120: de complete 
beéindigingsroutines. Als het 
programma hier komt, is er een 
spelletje afgelopen. 

6. regel 8000-8050: het doel 
wordt naar rechts bewogen. 

7. regel 8100-8050: er wordt een 
toets opgehaald, die bepaalt wat 
er moet gebeuren: kogel afvu- 
ren, kanon bewegen of geen van 
beide. 

8. regel 8300-8380: kijken of de 
kogel het doel heeft geraakt. 
Als dat het geval is, wordt de 
’raak’-variabele op | gezet. 


Waarschijnlijk is het u opgeval- 
len: als je zo naar deze losse 
modules kijkt, blijkt het pro- 
gramma helemaal niet ingewik- 
keld te zijn. Het bestaat uit een 
aantal, min of meer logisch in 
elkaar stekende onderdelen. 
Voordat u nu verder leest, ra- 
den wij u aan het programma 
(op de Commodore 64 of op de 
Commodore 128 in ’64-mode’) 
in te toetsen. U kunt de modu- 
les dan zelf testen. 


STOP 

Bij het schrijven van dit pro- 
gramma hebben we zoals altijd 
intensief gebruik gemaakt van 
de *STOP’-opdracht. Door het 
RETURN-statement door STOP 
te vervangen, verschijnt er na 
het aanroepen van een routine 
de melding ’’BREAK IN...”’ op 
het scherm. U kunt de variabe- 
len dan op de juiste waarden 
testen. Wat echter nog belang- 
rijker is: er is te zien of het 
eind van een routine daadwer- 
kellijk bereikt wordt! U zal na- 
melijk niet de eerste zijn die 
verstrikt raakt in programmalus- 
sen op een onvermoede plaats... 


ook de losse verkoop van ons 
blad gestaag blijft stijgen, heb- 


ben we onszelf op een overheer- 


lijke taart getrakteerd en de 
heer Sens even in de bloemetjes 
gezet. Ook op andere fronten 


Met behulp van STOP kunnen 
we bijvoorbeeld de sprite-data 
module (regel 2000-2020) eens 
bekijken. We vervangen RE- 
TURN in regel 2000 door een 
STOP, waarna we de RUN- 
opdracht geven. Als alles goed 
is, krijgen er na enige tijd de 
boodschap BREAK IN 2000” 
op ons TV- of monitorscherm. 
Nu kunnen we kijken of alle 
data zijn ingelezen. Doordat we 
van de teller *X’ gebruik hebben 
gemaakt, moet de uiteindelijke 
waarde hiervan gelijk zijn aan 
1024. Test dit met de opdracht 
*PRINT X’. Is de waarde van 
*X’ 1024, dan zijn alle data in- 
gelezen. 


FOUTJE 

Dit is slechts één voorbeeld van 
het uitproberen van een module. 
We kunnen deze truc ook ge- 
bruiken als er blijkbaar een fout 
in ons programma zit. 

Gelukkig (Commodore Dossier 
denkt ook overal aan!) zit er 
een kanjer van een fout in ons 
programma. Maar uiteraard be- 
schikken we, dankzij de toege- 
paste module-techniek, over de 
mogelijkheid om deze fout te 
verbeteren. 

Als u het programma RUNt, 
ziet u dat het de bedoeling is 
om met een joystick, die uit een 
televisie wordt afgevuurd (?) op 
een Commodore 64 te schieten. 
Voor dit doel beschikken we 
over cen beweeghbare televisie 
(de toetsen ’,’ en ’.’ dienen hier- 
voor) en een joystick met een 
lage luchtweerstand (druk op 
RETURN). 

We zijn nu meteen bij onze fout 
aangekomen, want de beweging 
yan de TV werkt verkeerd! Als 
we op de linker toets drukken, 
gaat de TV naar rechts en vice 
versa. Veranderen, dus. We 
zoek allereerst naar de ’bewe- 
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heeft Commodore Dossier niet 
over belangstelling te klagen. In 
de eerste twee maanden van ons 
verblijf in Viditel noteerden de 
tellers van de PTT 35000 raad- 
plegingen van de eerste pagina. 


gingsroutines’. Deze bevinden 
zich op regel 8100-8280. De 
toets die de TV naar rechts be- 
weeet (zie regel 8110), bevindt 
zich op regel 8140. Hieraan 
mankeert echter niets: 
SPRITE +2 (het X-register van 
de TV-sprite) wordt keurig met 
één opgehoogd. Hetzelfde geldt 
voor de beweeg-naar-links- 
routine: deze vermindert de in- 
houd van SPRITE +2 keurig 
met één, zodat hier ook de fout 
niet in kan zitten. 

Omdat alle TV-beweegroutines 
in één module zitten, moeten we 
daarin dus toch nog even verder 
zoeken. De beweeg-routines zijn 
goed, zodat de fout dus iets eer- 
der moet zitten! Dit blijkt ook, 
als we naar regel 8110 en 8120 
kijken. We zien dan dat het in- 
drukken van de LINKER-toets 
tot gevolg heeft dat er naar de 
BEWEEG-RECHITS routine 
wordt gesprongen. Omgekeerd 
geeft het indrukken van de 
RECHTERTOETS een 
BEWEEG-LINKS resultaat. De 
fout zit dus niet in de beweeg- 
routines maar in de toets- 
routine! 

Nu we dit weten, is de fout snel 
opgelost. We veranderen de 
twee leestekens in regel 8110 en 
8120, zodat de regels er als 
volgt uitzien: 


8110 IF A$="’.”’ THEN 8140 
8120 IF A$S=”’,” THEN 8170 


We testen het programma nu, 
waarna we zien dat de richtin- 
gen nu juist zijn. 

Tot zover ons verhaal over mo- 
dules. Ga nu echter zelf eens 
aan de slag. Maak bijvoorbeeld 
eens een geluidsmodule (regel 
4000-4999 zijn hiervoor vrijge- 
houden), en roep de routines in 
deze module vanuit het hoofd- 
programma aan. > 
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m7 Lod) ee 


LISTING ’JOYSTICK ASSAULT’ 


5 sprite=53248:wijzer=2040:kleur=53287<shift>/<spatie>e7 _ 
:Cshift>/<spatie>3c oo 
:<shift>/<spatie>3d 
pokeS3280,0:poke53281, 0<shift>/<spatie>31 

:<shift>/<spatie>2e 
gosub 2000 :rem sprite data lezen<shift>/<spatie>65 
gosub 3000 :rem initialiseren<shift>/<spatie>4b 
gosub 5000 :rem sprites op het scherm<shift>/<spatie?ll 
rem hier begint de hoofdlus<shift>/<spatie>b7 
gosub 6000<shift>/<spatie>cd 
if raak=O then 70<shift>/<spatie>eQ 
gosub 7000<shift>?/<spatie>d0 
if opnieuw=1 then 40<shift>/<spatie>90 

110 end<shift>/<spatiedee 

120 :<shift>/<spatie>42 

130 :<shift>/<spatie>bs 

140 :<shift>/<spatie>bo 

for x=832 to xt+19l:read y:poke x,y:next x:return<shift>/<spatie>da 
:<shift>/<spatiere7 

:<shift>/<spatie>d9 
raak=0:Kogel=O:opnieuw=0:printchr$(147)<shift>/<spatie>6a 
sprite=53248:enable=sprite+21l<shift>/<spatie>63 

poke wijzer,13<shift>/<spatie>67 

poke wijzer+i,14<shift>/<spatie rel 

poke wijzert2, 15<shift>/<spatie>d5 

poke enable, 1i+2<shift>/<spatie>f2 

poke Kleur,3:pokekleurt!,7:pokekleurt+2, l<shift>/<spatie>37 
poke53271,255:poke53277, 255: poke53264, O<shift>/<spatie>4e 
bots=peek(53278)<shift>/<spatie>44 
return<shift>/<spatie>90 

:<shift>/<spatie>2a 

:<shift>/<spatie>10 

poke sprite,60:poke sprite+1,60<shift>/<spatie>3a 

poke sprite+2,130:pokesprite+3, 200<shift>/<spatie>ba 
return<shift>/<spatie>0ol 

:Cshift>/<spatie>8f 

i<shift?/<spatie>99 

gosub 8000 :rem doel bewegen<shift>/<spatie>Oc 

gosub 8100 :rem ’kanon’ bewegen<shift?/<spatie>40 

gosub $300 :rem kogel/kanon testen<shift>/<spatie>9a 
return<shift>/<spatie>17 

:<shift>/<spatie>bsS 

:<shift>/<spatie>8f 

for x=1 to 4<shift>/<spatie>89 

for y=0 to 15<shift>/<spatie>83 

poke 53281,y:poke646,ytl<shift?/<spatieodf 

print chr$(C19)><shift>/<spatie>3a 

for z=ltoS:printchr$(13):next<shift>/<spatie?8d 

print” raak!!!"<shift?/<spatie>10 
next:inext:poke53281,0:poke646,1l:poke enable,O<shift>/<spatie>0d 
print chr$C17)chrs(17)" opnieuw?"<shift>/<spatie>6a 
getaS:ifas<>"j"andas<>"n" then 7090<shift>/<spatie>rde 
opnieuw=O<shift>?/<spatie>7a 

if as="j" then opnieuw=1<shift)/<spatie>bo 
return<shift>/<spatie>45 
t=peek(sprite)+2<shift>/<spatiereb 

if t>255 then t=30¢shift>/<spatie>4b 

poke sprite,t<shift?/<spatie>ad 

return<shift>/<spatie>ocf 

:€shift>/<spatieddd 

s<shift>/<spatie>57 

getas<shift>/<spatie>d/7f 

if aS="," then 8140 :rem rechts<shift>/<spatie>cd 

if a$S="." then 8170 :rem links<shift>/<spatie>9a 

if asS=chré(13) then 8200 :rem kogel<shift?/<spatie?17 
return(shift>/<spatie>56 

t=peek(sprite+2)+1:ift>200 then t=100<shift>/<spatierea 
poke sprite+2,t<shift>/<spatierb/ 
return<shift>/<spatie>71 

t=peek(sprite+2)-1:ift<100 then t=200<shift>/<spatie>dcf 
poke sprite+2,t<shift>/<spatie>95 
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return<shift>/<spatie>éf 

if Kogel then return<shift>/<spatie>cO ~ 
kogel=l<shift?/<spatie>fb 

poke sprite+4,peek(sprite+2Z)<shift>/<spatie>42 
poke spritet5,190<shift>/<spatie>13 

poke enable,1+2+4<shift>/<spatie>9d 
return¢shift>/<spatie>94 

:<shift>/<spatie>54 

:<shift>?/<spatie>42 
t=peek(sprite+5)-5<shift>/<spatie>ré6i 


if t<30 then Kogel=O:poke enable,1+2:return<shift>/<spatie>cb 


poke sprite+5,t<shift>/<spatie>22 
bots=peek(53278)<shift>/<spatie>re0 

if (bots and 7)=5 then 8360:rem raak!<shift>/<spatie>20c 
raak=O:return<shift>/<spatie>91 
raak=l:poke enable,it2:return<shift>/<spatie>s8f 
:<shift>/<spatie>?a8 

:<shift>/<spatie>a6é 

data 0,0,0,0,0,0,0,0<shift>/<spatie>98 

data 0,0,0,0,0,0,0,0<shift>/<spatie>99 

data 0,0,0,0,0,0,0,0<shift>/<spatie>9a 

data 3,255,254,6,0,6,13,85<shift>/<spatie>96 

data 110,26,170,218,53,85,182,96<shift>/<spatie>9a 
data 3,108,255,255,216,128,0,48<shift>/<spatie> ad 
data 255,255,224,0,0,0,0,0<shift>/<spatie>9a 

data 0,0,0,0,0,0,0,0<shift>/<spatie>9f 

data 0,0,6,0,0,6,0,0<shift>/<spatie>90 

data 6,0,0,6,0,0,6,255<shift>/<spatie?95 

dsta 255,255,255, 255, 255,192,0, s<shift>/<spatie>39 
data 207,255,131,216,0,219,216,96<shift>/<spatiera2 
data 219,217,156,195,217,0,219,217<shift>/<spatie>d9f 
data ©, 219,217,156,195,216,96,219<shifto/<spatierad 
data 216,0,219,207,255,131,192,0<shift>/<spatie297 
Gata 3,255, 255,255, 255,255,255, 0<shift>/<spatie>94 
data 0,0,0,0,0,0,0,0<shift>/<spatie>das 

data 0,0,48,0,0,48,0,0<shift>/<spatie>ag? 

data 48,0,0,48,0,0,48,0<shift>/<spatie>96 

data 0.48,0,0,48,.0,0,51<shift>/<spatie>St 

data 0,7,255,128.7,255,224,7<shift>/<spatie>dad 

data 255,144,0,0,24,0,0,48<shift>/<spatiedad 

data 6,0,96,0,1,192,0,15<shift>/<spat ie>ae 

data 0,0,24,0,0,0,0,0<shift>?/<spatie>39 
raak=l<shift>/<spatie>f4 

if not raak then print “hallo”<shift>/<spatie>26 


MUTT ay.v. a 


SCHUIVEN MET BITS EN BYTES (1) 


Een nieuwe — maandelijkse — rubriek voor enthousiaste pro- routines helpen de problemen 
rammeurs in machinetaal, door Roelf Sluman. Deze. maand: — echter voorgoed de wereld uit. 
RINT-routines voor beginners en gevorderden, vertragen in We zorgen er om te beginnen 

machinetaal, alfabet op het scherm afdrukken en eenvoudig voor dat onze strings eindigen 

vermenigvuldigen. op een nul. Op deze nul wordt 
namelijk in beide routines ge- 
test. 

De routines (de eerste is een 

eenvoudige versie, de tweede 


HOE MOEILIJK 1S PRINTEN 
Dankzij het ROM van de 


LDA #541 
JSR $FFD2 


Commodore-computers is het 
op het scherm zetten van een te- 
ken een zeer eenvoudige zaak. 
Het eenvoudigste voorbeeld 
hiervan is (voor de letter ’A’): 


Het wordt echter al wat moeilij- 
ker als we met langere teksten 
(strings’ in Basic) te maken 
krijgen. De onderstaande twee 


maakt gebruik van een wat 
moeilijker adresseringswijze) 
werken met een INDEX- 
register. In de eerste routine is 
dat het X-register, dat wordt 
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verhoogd, zodat er naar de vol- 
gende letter wordt gewezen. 

De computer doet het volgende 
(routine 1): 

00015 zet indexregister op nul, 
zodat dit register straks naar de 
allereerste letter wijst. 

00016 haal deze letter op, en zet 
hem in A 

00017 als A gelijk is aan nul 
(BEQ’) zijn we bij het einde 
van een string aangekomen. 
Springen naar KLAAR dus. 
00018 de inhoud van A 











PRINTEN. Figuur 4 
00019 X verhogen. Als de in- 














houd van X gelijk was aan 255, LIHE# Luc CODE LIME 
wordt deze nul. 
Me eee Bao.  @aEE vee HET PRINTEM VAM EEM BOUDSCHAP 
Igende tek oe oe aT oe : a 
ee a BEBE! Bee JOP HET TELEVISIESCHERM ### 
. BAERS Bea ; 
een nu. : BEERS e@uge j 
ring gedecteerd. In beide geval- HeaaS aaa €=£9000 
len komt de programmateller BERG? SBE 3 
hier terecht en zijn we klaar met HEWES Shi PRIHT = #FF02 
de routine. 5A eee s 
Be1G = SBhe J#88 LEHGTE VAH DE BOOUSCHAP: 
i Mani sae ; 
ee oe oe angi 9908 ; LARTSTE BYTE MOET @ ZIJM 
: ‘ [bee SHA8 ; 
gewijden, zie de volgende afle- HEG1S seam Ae ae LI #6 
vering van de cursus machine- HEG16 shee ED GE Se LUS LOA BOOUSC, # 
taal in het februarinummer!), Hele BSHOS FO Be BEQ KLAAR 
kunnen hun voordeel doen met Bie shar 2 i FF JSP PRIHT 
de volgende, iets uitgebreidere 12 oe THA 
routine. (“listing 2*) “Hh BOGE 6 FA BHE LUS 
Zl Sal ; 
Doordat we ZEROPI en Se ao . 
2 86 i ‘ “ 21S 
ZEROP2 als wijzers gebruiken, 4 ee ce KLABR RTS 
kunnen we maar liefst 64K ge- 4 Sone : 
heugen adresseren. Dit betekent [5 BOGE 35 BOUUSE .BYIE l4f7.1f,17.1¢ 
dat we wat strings betreft niet & S6AF 11 
meer gebonden zijn aan een i = blu 11 
maximum van 256 tekens. Eén Hawes =I 1 11 
van de vaste subroutines in onze HHMeG Bile 43 4F ~BYTE “COMMODORE DOSSIER * 
eigen machinetaalprogramma’s ae ee oo ao * BYTE : DOE] MEER. VOOR z.Jn7 
is dan ook PRTMSG, een routi- 5g, Sa 1 o ae : poe i - en : 
ne die sterk lijkt op listing 2! ae aba? OR : =e 
Let ook in deze routine weer op gary auas ; 
de nul aan het eind van de aa Bade EMD 
string (regel 00035). Hierop 
wordt in regel 00021 getest! 
ERRORS = @auiaE 
EVEN RUST 
Listing 3 is een voorbeeld van ae oe 
een comfortabele vertragingslus. Sy TEDE TASCE 
Er wordt geen geheugenplaats SYMBOL VALUE 
oa 2 oe ee S BOOUSE S006. KLARR euoD  LUs eu62 PRINT FFDZ 
ruiken we het register X en Y, 
die dus elk 256 maal worden 
verhoogd. De vertraging is on- EHD OF ASSEMBLY! 
geveer driekwart seconde, even- 
tueel kunt u hem (door Y te Figuur 2 
verhogen) korter maken. Ss S 
Natuurlijk kunt u ook langere Dine Lo | OLE Lite 
vertragingen genereren. Dit gaat 
net seanist op Ge volecmAc = gee) © anne > HET PRIMTEN VAN EEN BOODSCHAP 
a gaage Get ; VAN ONBEPERKTE LEMGTE 
BUS Mae 4 
LDA #10; HEGG4 Hen J18¢6 ROELF SLUMAH 
vrij naar keuze Hees Baa 3 
LDX #0 ABE Hee #225000 
LDY #0 BGR? SoBo ; 
STA ZEROP1 ees a eee es i ae = ate 
LUS DEX ee es 
BNE LUS BLE | SIGE 2EROP2 = ZEROPI+1 
HEEL Boe j 
ae aa AeBi2 sneB ; 
BABS shee i LHAISIE BYTE MUET 6 4104 
DEC ZEROP! BeI4d Sue ; : 
HEELS SER Ag 1A 


BNE LUS LUm #CBO00SC LAGE BYTE 
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Door de waarde in A te verho- 
gen of verlagen, kunt u de ver- 
tragingslus respectievelijk langer 
of korter maken. Vermenigvul- 
dig de inhoud van A met 0,75 
om ongeveer op de uiteindelijke 
vertragingstijd uit te komen. 


ALFABET 

Tot slot van de listings een ab- 
soluut nutteloze, maar daarom 
niet minder interessante routine. 
Het alfabet wordt op het 
scherm gezet, gebruik makend 
van (alweer) de PRINT-routine 
$FFD2. Dit is een leuke routine 
om mee te experimenteren (zet 
eens 20 keer het alfabet op het 
scherm, PRINT het alfabet eens 
van achter naar voren enzo- 
voorts). Let even op de LDA 
#13 en JSR PRINT instructie 
(regel 00021 en 00022): de tekst 
*"READY’ zou zonder deze twee 
regels meteen ACHTER het al- 
fabet komen te staan. 


GEMAKKELIJK VERMENIGVULDIGEN 
Veel machinetaalprogrammeurs 
hebben een grote hekel aan ver- 
menigvuldigensroutines. Geluk- 
kig kunnen we zeer vaak profi- 
teren van de voordelen die het 
tweetallig stelsel ons biedt. 
Schuiven we de inhoud van een 
geheugenplaats immers naar 
links (houdt rekening met een 
carry!), dan wordt de inhoud 
van die geheugenplaats met twee 
vermenigvuldigd. 

Dit maakt het werken met 
machten van twee zeer eenvou- 
dig, maar ook een vermenigvul- 
diging met 10 behoort tot de 
mogelijkheden. Kijk maar eens 
naar de volgende routine: 


(TEMPI en TEMP2 bevatten 
een getal) 
LDA TEMP! _ ;oorspronkelijke 
getal 

swordt ook nog 
eens in 

;TEMP3 en 
TEMP4 gezet! 


STA TEMP3 
LDA TEMP2 


STA TEMP4 
ASL TEMP1 © ;schuif naar 
links 

scarry naar 


TEMP2 (x 2) 


ROL TEMP2 


ASL TEMP! 
ROL TEMP2 x4 


> 








Ae 
Sy 


(i a ee 
OB So me 

OU oo oo 
MO & = 
i 


WSs a 
het ee OT A 


Go G3 Gd fo Bo RO Ra A) RS Ra fo Bo Ra 


RI GG Gd Gl) Oa Oo f 


aS i 


Oo 0 O 


\Sat 
=, 
ae 


2 OG 


0 


mat (Er US Ey Se 
Mi GS a oe ER he A 


OS & & 
Far 
PU WO NO Ge To oe, 


= 


FE Ra 


Wy ES i 
& 
eS 
it 


mG 02 00 0 
t 


Si OO on U0 oi hae 
St 
— 
a 


— 


i Ga wy 
m 
Q 


ot 
at 
= 
ioe 


Wo i Se Sm Se 
m 
co 
7 


i 


At 


& 

sae 

= 
th hee ei 
Wee eG) 


ss 


af 


1 SE a i 


= 
ta! 
cn 


Wo 


CG i me 
“JOA Cc Bb GI 
™ 00 02 0) 00 Oo oo 
CA CALA CA eu 


Oi Oo sp co ma 
@ 
G 


ERRORS = gBagg 


S'MBOL TABLE 

SYMBOL 
BOOS 
ZERO | 


VALUE 
BALA 
HF E 

EHD OF ASSEMBLY 

Figuur 3 


LIHE# Loc CODE 


a! 
al 
1m 
a 
a 


: es 
or 


ooo 
cot Fei 1 
oi oF 
oy 
ae 


mal 
Oi Oo eS ee me 


ae 
= 
Be 


mS 


or Sp en cS 


Se 
i 
ee CR eh ESR 


sa! 
ee et RR RO ee ee 


st 
ee 
a! 


= 
He UA TAMAS seees 


Oo oh oh 
wry 


St io 
Si Gi me 


= 
ca 


Wa i Se a 


Sr Pe 
AN eel ed ee ey ea) ee, 
See cE a eR Oe ed 


eS) mo a 


= 
me 
a VE a 


Mos) LA ee A 
or ea ee 


Wr ay Ca 


QO Oo Oo 0 


i 


ERRORS = 


SM BOL 


SV MEUL | 
Luss 


EMD OF 


He BOSC 
ZEROP 1 
ZEROPZ 

' #0 
CEEROP I] ts 
KLAAR 
FRTHT 
2ERUP 1 
LUS 
ZEROP a 
LUS 


JHOBE Erle 


KLAR 


BROODS , 


» BYTE 
_ «BYTE 
BYTE 
BYTE 13.4 


“LOMMOUORE DOSSIER © 
“UOET HOG VEEL MEER ~ 
#O0B @1JH LEZERS | 7 


EHD 


EARP Piel] Froe 


ZeROPS2 


LIME 


J888 VERTRAGIMGSROUT IME sae 


JUEZE ROUTIME MARKET GEBRUTE 
PYAR HEL #- EM HEI P-REGISTER 


J1366 ROELF SLUMAH 


Ltly #2 
LI? #4 
IMA 
BHE 
THs 
BHE 
ET 


LUS 


Lus 


EHD 
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BLT 


cc 

LDA TEMPI | 

ADC TEMP3 

STA TEMP! — 

_ LDA TEMP2 
-ADCTEMP4 
_ STA TEMP2 ;x 5! 


ASLTEMPL 
“ASL TEMP2 ;x 10° 


 aeee1 
— eag2 
— BRR 


80866 


86013 


Figuur 4 
LINE# LOC CODE 


Bagg 
goan 
abeg 
geae 
goad 
BeRe 
sea8 
sone 
sae 
eaee 
soa 
s0ea 
S060 
anaz 
sna3 
BBG 
BHa6 
soa7 
aang 
8008 
008 
Soe@n 
aie 
2018 


Hawes 
OG605 


Agee? 
BOOS 
ga@u3 
BOG1A 
mea 11 
genie 


gubid 
Ba 1S 
GHG16 
Baal? 
Buble 
gaG19 
AG028 
aba 1 
nab2e 
BbbeS 
Bug24 


ERRORS = Gueae 


SYMBOL TABLE 


SYMBOL 
KLARA 


VALUE 
HEE 


END OF ASSEMBLY 


oe 


Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. cements viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


~ Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


gulden. 


TEKSTKLEUREN OP 
EENVOUDIGE MANIER 


Voor het bepalen van de tekst- 
kleur kunt u, in plaats van de 
’onhandige’ karakter- 
besturingstekens, ook gebruik 
maken van een speciaal hiervoor 
ingesteld register. Dit register 
(646 op de Commodore 64 en 
de VIC-20) accepteert getallen 
van 0 tot en met 255. Er wordt 
echter, net als bij de rand- en 


schermkleur, alleen naar de 
laagste 4 bits (getallen van 0 tot 
en met 15 dus) gekeken. De 
kleurcodes van register 646 cor- 
responderen uiteraard met die 
van de rand- en schermkleurre- 
gisters. Voor groene letters doet 
u dus het volgende: 

POKE 646,5 


LUIS 


LINE 


ed 


31986 ROELF SLUMPM 


‘4=99000 


_KLARR = 91 


‘PRIHT = #FFD2 
: 1 


HAS 
PRIMT 


LD 
TAR 
JSR 


LUS 


: INK 
CPx 
BNE LUS 

#13 

PRINT 


LOA 
JN 


PRIHT 


CBM/SHIFT- 


#ELAAR 


i408 PRIMTEM VAN HET AILFABET #k 


SASCLI-CODE WAM TEKEH 


HA DE 2) 


JEERSIE LEIIER 


TOETSCOMBINATIE 


Sommige programma’s (waaron- 
der professionele, zoals Super- 
base 64) houden er geen reke- 
ning mee dat, tijdens het laden, 
de computer wel eens in ’onder- 
kast’ (kleine letters) zou kunnen 
staan. Dit heeft tot gevolg dat 
de titelbeelden er vaak nogal 
raar uitzien, omdat een aantal 
van de grafische tekens dan 
door hoofdletters wordt ver- 
vangen. 

Als u deze fout zelf niet wilt 
maken, kunt u de volgende 
PRINT-opdracht in uw pro- 
eramma (het liefst meteen al in 
het begin) verwerken: 

PRINT CHR$(i4);:REM NAAR 


ONDERKAST of 

PRINT CHRS§(142):REM 
NAAR BOVENKAST 
Vervolgens kunt u de 
SHIFT/CBM toets-combinatie, 
welke (interruptgestuurd) de 
computer tussen onder- en bo- 
venkast schakelt, ook nog uit 
zetten. Hiervoor geeft u de vol- 
gende opdracht: 


PRINT CHR$(8) :REM 
SHIFT/CBM UIT 


Met PRINT CHR$() accepteert 
de Commodore 64 deze toets- 
combinatie weer. 
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- ONVERKLAARBARE 
SYNTAX ERROR 








houden van de sprites, blijft er 
geen tijd genoeg meer over voor 


er niets meer van de zogenaam- 
de ‘time out’ tussen computer 








Als u er van houdt om met ma- 
chinetaalroutines te stoeien, of 
als u programma’s intoetst 


waarin nogal wat POKEs wor- 


den gegeven, kan het voorko- 
men dat u opeens wordt gecon- 
fronteerd met een SYNTAX 
ERROR, terwijl u absoluut 
NIETS fout doet! 

Zelfs het LIST-commando seeft 
al en SYNTAX ERROR, om 
van een RUN nog maar niet te 
spreken. 

De meeste computeraars hebben 
voor dit probleem een zcer een- 
voudige oplossing: hun compu- 
ter uit- en weer aanzetten,. 


_ C-64 : POKE 20480 


- Soms biedi de volgende POKE 


echter-uitkomst: 
VIC-20: POKE 4096,0 
C-16 : POKE 4096,0 


~ Deze POKEs petlen de aller- 


eerste byte van het Basic- 


geheugen op nul. De computer — 


verwacht dat deze byte nul is, 
omdat hierop wordt getest bij 


het LISTEN en RUNNEN van _ 


een Basicprogramma. Als er per 
ongeluk in deze geheugenplaats 

wordt gePOKEd, verdwijnt die 

nul dus, met bovengenoemd re- 
sultaat. 


SPRITES EN DISK-DRIVE 


Eén van de onbekendere bugs in programma’s treedt de bug op). 


de Commodore 64 heeft een 
Commodore Dossier program- 
meur nog niet zo lang geleden 
een slapeloze nacht bezorgd. Op 
de raarste momenten had de 
disk-drive er geen zin meer in. 
Dit gebeurde slechts af en toe, 
en dan altijd tijdens het laden 
en saven van programma’s (in 
dit geval een machinetaalpro- 
gramma, maar ook bij Basic- 





De fout openbaarde zich voor 
het eerst bij het schrijven van 
het ANIMATIE-programma, 
dat een intensief gebruik maakt 
van SPRITES. Doorgaans be- 
vinden zich, tijdens het werken 
met dit programma, acht sprites 
tegelijkertijd op het scherm. 
Hierin blijkt het probleem dan 
ook te zitten: als er teveel spri- 
tes op het scherm staan, klopt 


en disk-drive. De drive wacht 
(tevergeefs) op signalen van de 
computer dat data goed zijn 
ontvangen/weggestuurd. Omdat 


de video-processor in de Com- 


modore 64 zeer veel tijd moet 
besteden aan het op het scherm 


Een aantal Commodore- 
gebruikers heeft problemen er- 
varen in de vorm van plotseling 
verdwenen files op diskette. De 
fout hierin blijkt volgens een 
Amerikaans computervakblad te 
zitten in het DOS (Disk Opera- 
ting System) van de 1540 en 
1541 disk-drive. Hij treedt, on- 
der bepaalde voorwaarden, op 
bij het gebruik van het 
commando: 

SAVE ” @:FILENAAM’’,8 
Het ’apestaartje’ betekent dat 
de drive een eventueel onder de- 
zelfde naam op disk bestaande 
file moet vervangen door de file 
in het geheugen. 

Gelukkig is er een manier om, 
terwijl u toch van de handige 
*replace’-functie gebruik kunt 


de disk-drive. : 

Een tip aan sprite-gebruikers 
dus: zet, bij het ophalen van 
een file van disk, ALTIID de 


sprites uit. Dit bespaart u bij- 
_ zonder veel ergenis... 


SAVE+REPLACE COMMANDO — 


blijven maken, geen files meer 
te verliezen. Hiervoor behoeft u 
slechts één teken aan het com- 
mando toe te voegen: 

SAVE ” @0:FILENAAM”’,8 


Hierdoor raakt de drive niet 
meer in de war, waardoor uw 
files behouden blijven. 

Gezegd moet worden, dat een 
aantal commerciéle program- 
ma’s dezelfde programmeerfout 
bevatten. Het bekendste voor- 
beeld daarvan is VIZAWRITE 
64, een overigens uitstekende 
tekstverwerker. Gebruik bij Vi- 
zawrite dus nooit meteen het 
SAVE-commando, maar 
SCRATCH de eventuele file 
eerst met behulp van de ’D’- 
instructie. 


MoD el Lele Poe Va ad Cola 


Maandelijkse rubriek rnet listings van programma’s die waard zijn in uw programma-bestand te worden opgenomen. Alle pro- 
ramma’s zijn voorzien van een controle-getal. De werking van dat controle-getal wordt uitvoerig beschreven in de HANDLEI- 
ING BIJ DE LISTINGS die u in elke Commodore Dossier kunt vinden op pagina 37. 


TRACKLISTER 


Het korte handige programma 
controleert track voor track of 


10 
20 
30 
40 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
200 
210 


uw schijf in orde is. Door C. 
Jong. 


printchrs(147)<shift>/<spatie>67 
printchré(18) tracktester <shift>/<spatiedOc 
printchr$(18)chr$(C17)"dit programma test uw track’s"<shift>/<spatie>a6é 
printchrs(18dchr$Ci7)"druk op spatie om te beginnen"<shift>/<spatie>s2 
wait203,63<shift>/<spatie>cc 
open!,8,15,"i°<shift>/<spatie>a7 
openz,8,8, "#"<shift>/<spatie>f£8& 
fori=1to35<shift>/<spatie>sd 
DYrint#l, 91 8 O “3157 
input#i,a,b$:print"track"3i: 
next<shift>/<spatie>00 : 
close2:closel<shift>/<spatie>b5 
printchrs(18)chrs(17)"einde tracktester "<shift>/<spatie>0oO 
Input"nog eens (j/n)? “j;aS<shift>?/<spatie>15 

if aS="j"thenlO<shift>/<spatiedia 
end:new<shift>/<spatie>do 
closel<shift>/<spatie>43 


O"<shiftd/<spatie>fe 
bSsactshift>/<spatie>53 
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MULTI BOOT EN MULTIKAART 


Zeer handig en keurig verzorgd modem beschikt. Telefoonnum- sparen savet het programma NB. In regel 90 verslikte onze 
programma van Daniel Drom- mers zijn op te roepen uit het vanaf de eerste van de maand printer zich. Tussen aanha- 
me. Het programma kan 100 adressenbestand. Zowel het die werd ingevoerd. Bij wijzigen lingstekens hoort te staan: 
adressen herbergen en een agen- adressenbestand als het eerst oude gegevens verwijderen. FOUT IN DATAREGELS. Als 
da bijhouden van een heel jaar. terminal-programma beschikken _Zoals u ziet, bestaat het pro- de checksum deze regel zo niet 
Verder zit er een bescheiden over een help-toets, zodat verde- gramma uit twee delen. Multi- _accepteert, even uitschakelen. 


terminal-programma in om ver- re uitleg hier overbodig is. Ge- boot is de Basic-loader voor de _ (zie handleiding pagina 37 Com- 
binding te kunnen leggen met gevens kunnen worden bewaard layout en multi-kaart het eigen- | modore Dossier) 
iedereen die over een 300 baud __ op cassette en schijf. Om tijd te _lijke programma. 


10 printchrs(147)chr$(14)chr$(8):poke646,14:goto30<shift>/<spatie>S5a 

20 poke2ll,x:poke214,y:sys58732:return<shift>/<spatie>01 

30 poke53280,6:poke53281,6:rv$=chr#(18)<shift>/<spatie>42 

40 x=15:y=8:gosub20:print "MULTI-BOOT"<shift>/<spatie>cb 

50 x=12:y=10:gosub20:print"geschreven door"<shift>/<spatie>3b 

60 x=1l:y=12:gosub20:print"Daniel van Dromme“<shift>/<spatie>5c 

70 x=S:y=14:gosub20:print"“verwerking data - even geduld”:print:print<shift>/<spa 
tie>def 

80 fori=49152t049800: readx:pokei,x:s=stx:next<shift>/<spatie>37 

90 ifs<>82103thenprint"F 0 UT IN OD A TAREGEBSA!!":end(shift>/<spatie>as 
100 printchr$(147):printrv$"F1l laad MULTI-KAART van disk "sprint<shift>/<spa 
tie>d93 

110 printrvs"F3 laad MULTI-KAART van cassette “<shift>/<spatie>78 

120 getaS:ifas<>chr$(1383)andas$<>chr$(134) then] 20<shift>/<spatie>31 

130 pokeS3280,14:printchr$(142)chr$(147);<shift>/<spatied9d 

140 ifasS=chr$(134>)thenil60<shift>/<spatie>bo 

150 print"load “tchr$(34)+"multi-keart"t+chr$(34)+",8":goto 170<shift>/<spatie>91 
160 print"load “tchr$(34)+"multi-kaart"+chr$(34)<shift>/<spatie>9c 

170 poke631,19:poke632,13:poke198,2<shift>/<spatiedia 

180 datal69,67,162,40,157, 255, 3,202,208, 250<shift>/<spatiedla 

190 datal69,67,162,40,157,119,4,202,208,250<shift>/<spatie>dic 

200 datal6é9,67,162,40,157,191,7,202, 208, 250<shift>/<spatie>69 

210 datal69,66,141,40,4,141,80,4,141,160,4,141,200,4,141,240,4,141,24,5,141,64 
»S<shift>/<spatie>S4 

220 datal41,104,5,141,144,5,141,184,5,141,224,5,141,8,6,141,48,6,141,88,6<shif 
t>/<spatie>é4 

230 datal41,128,6,141,168,6,141,208,6,141,248,6,141,32,7<shift>/<spatie>67 

240 datald1,72,7,141,112,7,141,152,7<shift>/<spatie>71 

250 datal69,66,141,79,4,141,119,4,141,199,4,141,239,4,141,23,5,141,63,5<shift> 
/<spatie>51 
260 datald1,103,5,141,143,5,141,183,5,141,223,5,141,7,6,141,47,6,141,87,6<shif 
t>/<spatie>db2 

270 dataid!,127,6,141,167,6,141,207,6,141,247,6,141,31,7<shift>/<spatie>sd 

280 datald1,71,7,141,111,7,141,151,7,141,191,7<shift>/<spatie>8sd 

290 dataleé9,112,141,0,4,169,107,141,120,4,169,109,141,192,7<shift>/<spatie>98 
300 datai69,110,141,39,4,169,115,141,159,4,169,125,141,231,7,96<shift>/<spatie>é4 
310 datal69,195,162,31,157,124,4, 202, 208, 250¢<shift>/<spatiedal 

320 datalé9,160,162,31,157,164,4,202,208, 250<shift>/<spatie>d9 

830 datai69, 160, 162,31,157,204,4, 202,208, 250<shift>/<spatieddé 

340 datai6é9,160,162,31,157,244,4,202, 208, 250<shift>/<spatie>dcc 

350 datal69,160,162,31,157,28,5,202, 208, 250<shift>/<spatie>ff 

360 datal69,160,162,31,157,68,5,202, 208, 250<shift>/<spatie>cd 

370 datal69,160,162,31,157,108,5,202, 208, 250<shift>/<spatie>e0 

380 datal69,195,162,31,157,148,5, 202,208, 250<shift>/<spatie>ded 

390 datal69,5,162,31,157,124,216,202, 208, 250<shift>/<spatie>18 

400 datal69,5,162,31,157,164,216,202, 208, 250<shift>/<spatie>0a 

410 datal69,5,162,31,157,204,216, 202,208, 250<shift>/<spatie>05 

420 datal69,5,162,31,157,244,216, 202,208, 250<shift>/<spatie>3f 

430 datal69.5,162,31,157,28,217,202,208, 250<shift>/<spatie>Oc 

440 datal69,5,162,31,157,68,217, 202,208, 250<shift>/<spatie>le 

450 datai69,5,162,31,157,108,217,202, 208, 250¢shift>/<spatie>53 

460 datai6é9,5,162,31,157,148,217,202,208,250<shift>/<spatie>59 

470 datal6é9,194,141,164,4,141,204,4,141,244,4,141,28,5,141,68,5<shift>/<spati 
e265 : 

480 datal41,108,5<shift>/<spatie>5a 

490 datal69,5,141,164,216,141,204, 216,141,244, 216<shift>/<spatie>55 

500 datal41,28,217,141,68,217,141,108,217<shift>/<spatie>4b 

510 datal6é9,194,141,195,4,141,235,4,141,19,5,141,59,5,141,99,5,141,139,5<¢shift 
>?/<spatie>r64 
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520 datal69,240,141,124,4,169,238,141,155,4,169,237,141,148,5<shift>/<spatie>rb4 
530 datai69,253,141,179,5<shift>/<spatie>a7 

540 datal69,5,141,124,216,141,148,217,96<shift>/<spatie>92 

550 datal69,195,162,36,157,185,5, 202, 208, 250¢snift>/<spatie>br 

560 datal69,160,162,36,157,225,5, 202,208, 250<shift>/<spatie>aa 

570 datalé9, 160, 162,36, 157,9,6,202, 208, 250<shift> /<spatieraf 

580 datal69, 160,162, 36,157,49,6,202, 208, 250<shift>/<spatie>ded 

590 datal69,160,162,36,157,89,6,202,208, 250<shift>/<spatie>re3 

600 datai69, 160, 162,36,157,129,6,202,208, 250<shift>/<spatie>ce 

610 datai69, 160, 162,36,157,169,6,202,208, 250<shift>/<spatie>f0O 

620 datal69,160,162,36,157,209,6, 202,208, 250<shift>/<spatie>fb 

630 datalé9,160,162,36,157,249,6,202,208, 200<shift?/<spatiereS5 

640 datal6é9, 160, 162, 36,157.33,7, 202, 208, 250<shift>/<spatie>2d 

650 datai69, 160,162,36,157,73,7, 202,208, 250<shift>/<spatie>23 

660 datal69,195,162,36,157,113,7,202, 208, 250<shift>/<spatie>00 

670 datai69,194,141,225,5,141,9,6,141,49,6,141,89,6,141,129,6,141,169,6<shift>/ 
<spatie>)36 

680 datal41,209,6,141,249,6,141,33,7,141,73,7<shift>/<spatie>05 

690 datal41,6,6,141,46,6,141,86,6,141,126,6,141,166,6,141,206,6,141,246,6<sh 
ift>/<spatie>Ob 

700 datai41,30,7,141,70,7,141,110,7<shift>/<spatie>0a 

710 datal69,240,141,185,5,169,237,141,113,7,169,238, 141,222, 5<shitt>/<spatie>d/e 
720 datai69,253,141,150,7,96<shift>/<spatie>df 






















































MULTI-KAART 


100 printchrs(147)chr$(14)chr$(8)<shift>/<spatie?34 

110 open2,2,3,chr$(6+32)+chr$(32+128)<shift>/<spatie>49 

120 dima$(11,30,18),m$(11),ab$C€100):cuS=chr$(166)<shift>/<spatiera2 

130 poke53280,6:poke53281,6:poke646, i<shift>/<spatie>3d 

140 x=14:y=7:gosub380:print "MULTI-KAART"<shift>/<spatie>83 

150 x=12:y=10:gosub380:print “geschreven door"<shift>/<spatie>aé 

160 x=ll:y=12:gosub380:print"Daniel van Dromme"<shift>/<spatie>f9 

170 x=5:y=15:gosub380:print"“verwerking data - even geduld“<shift>/<spatie>bb 
180 forx=Otol!l:reada$:m$(x)=a$:next<shift>/<spatie>f6 

190 v=53248: poke 2040, 14:pokev+39, 0: form=896t0960:readq: pokem,q:next<shift>/<spa 
tie?86 

200 cl$=chrs(147) :ho$=chr$(19) :rv$=chr$(18):ros=chr$(146)<shift>/<spatie>re3 

210 rig$=chr$(29):leS=chr$¢(157):dos=chr$ (17): up$=chr$(145)<shift>/<spatie>fa 

220 f1¢=chr$(133):f£3$=chr$(134):f5$=chr$ (135): f7$=chr$(136)<shift>/<spatie>re2 
230 £2$=chr$(137):f48=chr$ (138): f6$=chr$(139):f8s=chr$(140)<shift>/<spatie>d5 
240 sp$=" "<shift>/<spatie>45 

250 printcl$:x=2:y=1l:gosub380<shift>/<spatie>f7 

260 print"“geef de datum in Cvb. 17/01/1986):":x=2:y=12:gosub380: inputdt$<shift> 
/<spatiedcd 

270 iflen(dt$)«>10 then 250<shift>/<spatie>rel 

275 t2=val(left$(dt$,2))-l:ti=val (mids (dt$,4,2))-1<shift>/<spatie>31 

280 goto2310<shift>/<spatie>90 

330 data jan, feb,maa,apr,mei,jun,jul,aug,sep,okt,nov,dec<shift>/<spatie>fa 

340 data bboy o oe 255.,,255,.,.255.,.255,,,255,,,255,,,255,,,,.,..,;, 
»<shift>/<spatieded 

850 data .....-.-+5-.,-6shiil> /<spatieode 

360 geta$:ifas=""then360<shift>/<spatie>59 

370 return<shift>/<spatierfd 

380 poke211,x:poke214,y:sys58732:return<shift>/<spatie>68 

B90 tS$="":i=-O<shift>/<spatierb4 

400 printcu$;<shift>/<spatie>dl 

410 gosub360<shift>/<spatie>23 

420 ifasc(as)=20andt$=""then4d10<shift>/<spatie>c3 

430 ifasc(a$)=13then500<shift>/<spatierad 

440 ifaS=cl$ora$=hosorasc(a$)=1480ras=do$then410<shift>/<spatie>cd 

450 ifas=leSora$=ri$thend10<shift>/<spatie>78 

460 ifasc(a$)=20andi>Otheni=i-1:t$=left$(t%,i):printleSile$::goto 400<shift>/<s 
patie>be 

470 printle$;" "“leSsa$icusSs<shift>/<spatie>39 

480 ifidmthenprintle$;" “sle$:goto500<shift>/<spatie>47 

490 tS=t$ta$:i=i+l:gotod10<shift>/<spatie?03 

500 printles;“ “:return<shift?/<spatie>ree 

510 printcl$:x=2:y=11:gosub3e80<shift>/<spatie>f2 

520 printchr$(144)cl$:pokevt21,1:sys49152:poke53281, 14:gosub 530: gotoS70<shift> 
/<spatie>26 

530 x=l:y=23:gosub380<shift>/<spatie>97 
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"3<shift> 





"ievSi" £2"3r0S: del “irv$s" {3-4 ros: “nex 





640 printrvs;"fl"sro$; "menu 
/<spatie>b3 

550 printrv$;"f5-6"sro$;s "last “irvs3"f7"sro0$3 “goto"<shift>/<spatiera6 

560 x=30:y=1l:gosub380:print"’x’ help“:return<shift>/<spatie>bb 

570 x=7:y=l:gosub380:print m$(til)<shift>/<spatie>27 

580 x=22:y=l:gosub380:print right$(dt$,4)<shift>/<spatie>87 

590 x=13:gosub380:print str$(t2+1)<shift>/<spatie>b3 

600 x=l1:y=4:fora=Otol8:y=at4d:gosub380:print as(tl,t2,a):next<shift>/<spatie>0e 
610 xs=25:ys=75:goto900<shift>/<spatierd4 

620 gosub 360<shift>/<spatie>d6 

630 ifasc(a$)=20andx=1 then620<shift>?/<spatier>0a 

640 ifas=f1$thenpokevt21,0:goto2310<shift>/<spatiered 

650 ifa$=do$thenys=ys+8:t3=t3t1l:goto830<shift>/<spatiere7 

660 ifas=up$thenys=ys-8:t3=t3-1:goto830<shift>/<spatie>df7 

670 ifaS=ri$ or aS=le$ then 620<shift)/<spatie>26 

680 ifas=f4$then t2=t2+1:gosub920:goto620<shift>/<spatie>25 

690 ifa$=f6Sthen t2=t2-l:gosub920:goto620<shift>/<spatie>3c 

700 ifa$S=f£3$then tl=tltl:gosub920:goto620<shift>/<spatie>36 

710 ifa$=fS5$then ti=ti-1l:gosub920:goto620<shift>/<spatie>4b 

720 ifa$=f£2Sthen gosub 910: goto620<shift>/<spatie>4b 

730 ifa$S="x*"then gosub 1009: goto620<shift>/<spatie>0b 

735 ifaS=f£7$then goto 1000<shift>/<spatie>fb 

740 ifascCa$)=20andx>ithenx=x-1l:xs=xs-8:a$(t1,t2,t3)=left$Cas(ti,t2,t3),x-1)<sh 
ift>/<spatie>33 

750 itfasc(a$)=20thengosub380:print " ":goto830<shift>/<spatie>déf 

760 ifa$S=chr$(13)thenxs=25: ys=ys+8:x=1:t3=t3+l:goto830<shift>/<spatie>ib 
770 ifa$=ho$ thenxs=25:ys=76:t3=O0:x=l:y=4:goto830<shift>/<spatie>b7 

780 ifa$=cl$then 620<shift>/<spatie>deb 

790 ifx>27thengosub2990:goto 620<shift>/<spatie>dd 

800 y=t3+4:gosub380:printa$:x=x+l<shift>/<spatie>68 

810 a$(tl1,t2,t3>=a$(t1,t2,t3)+as<shift>/<spatie>54 

820 xs=xst8<shift>/<spatie>17 

830 ifxs>255thenxs=255<shift>/<spatie>12 

840 ifxs<25thenxs=25<shift>/<spatie>66 

850 ifys>220thenys=220<shift>/<spatie>7e 

860 ifys<75thenys=75<shift>/<spatie>72 

870 ift3>18thent3=18<shift>/<spatie>dda 

880 ift3<Othent3=O<shift>/<spatie>5e 

890 ifx<ithenx=l<shift>/<spatie>54 

900 pokev,xs:pokevtl,ys:goto620<shift>/<spatie>ad 

910 a$(tl,t2,t3d=""sgoto960<shift>/<spatie>db3 

920 ifti>Lllthentl=11<shift>/<spatiedb4d 

930 ifti<Othent1l=O<shift>/<spatie>8c 

940 ift2<Othent2=O<shift>/<spatie>s2 

950 ift2>30thent2=30<shift>/<spatied9a 

960 printcl$:sys49152:x=7:y=l:gosub380:print mS$(tl)<shift>/<spatie>ch 
970 x=13:gosub380:print str$(t2+1);" “<shift?/<spatie>2ad 

980 x=22:y=l:gosub380:print right$(dt$,4)<shift>/<spatie>16 
x=1:fora=Otol8:y=at+4:gosub380:print a$(ti1,t2,a):next: y=t3+4<shift>/<spatie 












































gosub 530:x=l:goto 620<shift>/<spatie>3d 
1000 printcl$:sys49152<shift>/<spatie>cé 
1001 x={:y=1:gosub380:print"voer dag/maand in : (dd/mm) “3<shift>/<spatie>d2 
1002 m=4:gosub 390<shift>/<spatiedaf 

1003 t2=val(left$(t$,2))-1:tl=val (right$(t$,2))-l: goto 920<shift>/<spatie>58 
1009 printcl$:sys49152<shift>/<spatieddf 

1010 x=l:y=S:gosub380:print “voorbeelden”<shift>/<spatie>a4 

1020 x=l:y=6:gosub380:print "08:30 geld opnemen van de bank"<shift>/<spatie>fb 
1030 x=l:y=9:gosub380:print "10:45 sollicitatiegesprek"<shift>/<spatie>4b 

1040 x=l:y=10:gosub380:print "12:30 lunch met vriendin"<shift>/<spatie>d2f 

1050 x=l1:y=20:gosub380:print "20:00 bioscoop”<shift?/<spatie>25 

1060 forx=1to5000:next:goto 96O0<shift>/<spatieref 

1070 printcl$;schr$(30):t=0: x=O: y=22:gosub380<shift>/<spatie>37 
















1080 printrvs"fl"ro$"“menu "rvs £3 ros input "yvS £5 vot next 3<shift?/<sp 
atiedbd 

1090 print” ‘eve £7 ros last <shift?/<spatie>bd 

1100 x=O:y=24:gosub380<shift>/<spatie>c9 

1110 printrvs;"f2"sro83 "del "$rvs3"f£4"sros3 "find “rvs f£6"roS print’ 3;<sh 
Lit? /<spatieoba 

1120 print” "“rvs"f8"ros$"sort”sup$<shift>/<spatie>9a 






1130 gesub 1390:goto1150<shift>/<spatie>Se 
1140 sys 49349<shift>/<spatie>dd 
1150 gosub360: ifasc(as)<l330rasc(as)>140then1150<shift>/<spatie>67 
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1160 ifasS=flsthenx=0:y=22:gosub880<shift>/<spatie>ra3 

1170 ifas=filSthenprint" "ups: goto23iO<shift 
>/<spatier0e 

1180 on asc(a$)-132 gosub1580,1200,1330,1360,1480,1510,1700, 1590<shift>/<spatie 
298 

1190 goto 1150<shift>?/<spatie>2Ze 

1200 sys 49349<shift>/<spatie?19 : 

1210 x=5:y=4:gosub380:printrv$; “naam: "3:m=22: gosub390:nas=tS<shift>/<spatie>29 
1220 x=5:y=5:gosub380:printrv$; “voornaam: "3:m=18:gosub390: vn$=tS<shift>/<spatie 
24c 
1230 x=5:y=6:gosub380:printrv$; "adres: "3:m=21:gosub390:ad$=t$<shift>/<spatie>id 
1240 x= “300 


5:y=/7:gosub3e0:printrvs; plaats: =20:gosub390:pl$=ts<shift>/<spati 
er4l : 
1250 x=5:y=8:gosub380: printrvs;"tel:” s$:m=li:gosub390:tesS=tS<shift>/<spatie>3d 
1260 x=23:y=8:gosub380:printrv$; “modem: "33:m=3:gosub390:mo$=ts<shift>/<spati 
e>0f 


1270 forx=0tol00: ifab$(xz)=""thentt=x:t=x:gotol290<shift>/<spatie>31i 

1280 next:print“out of memory”:stop:gotol070<shift>/<spatie>d7d 

1290 abS=na$+left$(sp$,25-len(na$))+vn$+left$(sp$,25-len(vn$) d)+ad$<shift>/<s 
patie>bb 

1300 ab$=ab$tleft$(sp$,25-len(Cad$) )+pl$tleft$(sp$,25-len(p1$)d+te$<shift>/<s 
patie>b7 

1310 abS=ab$tleft$(sp$,25-len(te$))+mo$:ab$(t)=ab$<shift>/<spatie>cbh 

1320 gotol3o90<shiftt>/<spatiedaf 

1330 t=tt+l<shift>/<spatie>le 

1340 ift>200thent=200<shift>/<spatie>16 

1350 goto 13890<shift>/<spatierc! 

1360 t=t-1l<shift>/<spatie>d7d 

1370 ift<Othent=O<shift>/<spatie?72 

1380 goto 1390<shift>/<spatiere3 

1390 sys 49349<shift>/<spatie>c6 

1400 x=5:y=4:gosub380:printrv$; "naam: "smid$Cab#(t),1,25)<shift>/<spatie>fe 


1410 x=5:y=5:gosub380:printrv$; *voornaam: "smid$Cab$(t),26,21)<shift>/<spatie>30 
1420 x=5:y=6:gosub380:printrv$; “adres: "smid$(Cab$(t),51,24)<shift>/<spatie>7e 
1430 x=5:y=7:gosub380:printrv$; “plaats: “i;mid$(ab$(t),76,23)<shift>/<spatie)3d 
1440 x=5:y=8:qosub380:printrvs; “tel: “;mid$Cab$(t),101,15)<shift?/<spatie>76 
1450 x=23:y=8:gosub380:printrv$; “modem: ";mid$Cabs(t),126,4)<shift>/<spatie>6be 
1460 x=9:y=9:gosub380:printrv$;"gegeven nummer: "s;str$(ttl)<shift>/<spatierc4d 
1470 return<shift>/<spatie>35 

1480 x=5:y=9:gosub380:printrv$;"bent u zeker ? (j/n) “:gosub 360<shift>/<sp 
atie>d2 


1490 ifas<>"j"thengotol390<shift>/<spatie>54 

1500 abS(td=""sgoto 1390<shift>/<spatiedral 

1510 x=5:y=9:gosub380:printrv$;"welk gegeven wenst u ?":forx=i1tol000:next<sh 
ift>/<spatieded 

1520 x=5:y=9:gosub380:printrv$;~ "<shift?/<spatie>f6 
{530 m=22:x=5:y=9:gosub380:printrv$; :gosub390<shift>/<spatie>b4 

1540 forx=Otott:ifleft$Cab$(x),len(t$))=tSthent=x:gotol390<shift>/<spatie>06 
1950 next<shift>/<spatie>8a 

1560 «=5:y=9:gosub380:printrv$;"gegeven niet aanwezig"<shift>/<spatie>Se 
1570 forx=l1tol000:next:gotol390<shift>/<spatie>rdb 


1580 x=O:y-22:gosub380:print” ";up$<shift 
>/<spatier14 
1590 x=5:y=9:gosub380:printrv$;"dit kan even duren "<shift>/<spatie>Se 


1600 forx=1tol000:next:poke53265,11<shift>/<spatiedb7 

1610 forr=tttolstep-i<shift>/<spatie>8b 

1620 fori=Otor<shift>/<spatiedee 

1630 ifab$(r)>?ab$Cidtheni670<shift>/<spatierde 

1640 bS=ab$(rd<shift>/<spatie>dce 

1650 ab$(r)=ab$Cid<shift>/<spatie>dd 

1660 absSCid=bS<shift>/<spatierci 

1670 nexti<shift>/<spatie>4b 

1680 nextr:poke53265,27<shift>/<spatier£5 

1690 x=5:y=9:gosub380:printrv$; "gegevens gesorteerd"”: forx=0to999:next:goto1390¢ 
shift>/<spatie>?43 

1700 x=5:y=9:gosub380:print"b”srv$i "rede of "sro$s"s"srv$s"malle letters”<shif 
t>/<spatiedad 

1710 gosub360: ifas<>"b"anda$<>"s"thenl710<shift>/<spatiedbf 

1720 ifa$="b"thenbs$=chr$(14)<shift>/<spatie>d43 

1730 ifas="s"thenbs#=chr$(15)<shift>/<spatie>29 

1740 x=5:y=9:gosub380:print“a"srv$i"lles of een “sro$;"d"“srv$; "eel "<shif 
t>/<spatie>d3 : 

1750 gosub360:ifas<>"a”"anda$<>"d"theni750<shift>/<spatie>d7 
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1760 ifas<>"a”thenl780<shift>/<spatiede2 

1770 pl-O:02=-t:qotolS20<chitt>/<spatie>5a 

1780 x=S:y=9:gosub380:printrv$:;"geef het begin nr "“:gosub360:pl=val (as )< 
SHLECD /Kepatied is 

1790 ifpl<landpi>tt+ithen!780<shift>/<spatie>89 

<shift>/<spatie>87 

1800 x=5:y=9:gosub380:printrv$;"geef het eind nr "sgosub360:p2=val (a$d¢ 
shift>/<spatie>87 

1810 ifp2<tandp2>ttithen1800<shift>/<spatie>63 

1815 pl=pl-l:p2=p2-1l<shift>?/<spatie>Za 

1820 open4d, 4:print#4,bs$<shift>/<spatie>27 

1830 print#4,spc(2);"“multi-kaart xxx adressenbestand xxx":print#4:print#4<shift 
>/<spatier7c 

1840 forr=pitop2<shift>/<spatiedfl 

1850 print#4,spc(2);mid$Cab$(r),1,25)<shift>/<spatiedb2 

1860 print#4,spc(2);mid$Cabs(r),26,21)<shift>/<spatie>fd 

1870 print#4,spc(2)s;mid$Cab$(r),51,24)<shift>/<spatie>df2 

1880 print#4,spcC2)s;mids Cabs (r),76,23)<shift>/<spatie>de6 

1890 print#4,spc(2)s;mid$Cab$(r),101,15):print#4:print#4<shift>/<spatie>des 

1900 nextr:print#4,chr$(15):close4<shift>/<spatie>6d 

1910 forx=1to500:next:gotol390<shift>/<spatie>ba 

1920 printchr$(159)3scl$:sys49598:;: poke53280, 0: poke53281,0<shift>/<spatie>69 

1930 x=O:y=24:gosub380<shift>/<spatie>O0c 

1940 printrvS; fi"sro$;"menu “irvS:"f2°sro$s help “srv$:"f8"sro0$;"find ":<sh 
ift>/<spatie>62 

1950 printrv$;"f5"sroSs"next “trv$;"f7"sro$;"last"up$<shift>/<spatie>35 

1960 goto 2010<shift>/<spatie>25 

1970 sys49598:x=2:y=12:gosub380:printrv$;"kies een telefoonnummer uit het"<shif 
t>/<spatie>4i 

1980 x=2:y=13:gosub380:printrv$;"bestand,draai dit,sluit de hoorn aan"<shift>/< 
Spatie>85 

1990 x=2:y=14:gosub380:printrv$;"en typ uw teksten in."“:forx=1to5000:next<shift 
>/<spatie>dab 

2000 sys 49998: return<shift>/<spatie>cd 

2010 printchrs(30)3:sys49349:t=0:gosub1400: printchrs$(159)3<shift>/<spatie>d10 
2020 x=2:y=l2:gosub380<shift>/<spatie>6é5 

2030 printrv$scus;<shift>/<spatie>62 

2040 getb$S:ifbs<>""thenprint#2,b$3:goto2070<shift>/<spatie>27 

2050 get#2,c$:ifcs<>""thenx=x+1l:goto2180<shift>/<spatie>13 

2060 goto2040<shift>/<spatie>8b 

2070 ifbS=fiSthen2310<shift>/<spatie>b5 

2080 ifbS=f2$thengosub1970:goto2020<shift>/<spatie>bl 

2090 ifbS=f3Sthenprintchr$(30)3:gosub1510:printchr$(159)3:goto2020<shift>/<spat 
ie>S8e 

2100 ifbs=£5Sthenprintchr$( 30); :gosub1330:printchr$(159)3:gota2020<shift>/<spat 
16292 

2110 ifbs-f£7Sthenprintchr$ (30); :gosub1360:printchr$(159);:goto2020<shift>/<spat 
leogt 

2120 ifasc(b$)=1480rbs=doSorb$=leSorbs=risorbs=upsthen2040<shift>/<spatie>58 
2130 ifbs=cl$thensys 49598: goto2020<shift>/<spatie>9d 

2140 ifbs=hosthenprintlessrv$i" “:goto2Z020<shift>/<spatie>88 

2150 ifasc(b$)=13thenprintleSirv$3" “:x=2:y=y+l:gosub380:goto2190<shift>/<spati 
e>23 

2160 ifasc(b$)=20andx>2thenx=x-1:printle$;le$;:goto2030<shift>/<spatie>08 

2170 ifasc(b$)=20then2040<shift>/<spatie>49 

2180 ifx>37thenprintles;irv$;" “:x=3:y=y+1:gosub380<shift>/<spatie>85 

2190 ify>2lthensys 49598:goto 2020¢shift>/<spatie>55 

2200 ifasc(b$)=13then2030<shift>/<spatie>dac 

2210 printleS:irvss" “s;les;b$icSscus;:x=xil<shift>/<spatie>28 

2220 sr=st:ifsr=Oorsr=8then2040<shift>/<spatie>b8 

2230 sys 49598<shift>/<spatie>19 

2240 x=6:y=16:gosub380<shift>/<spatie>de 

2250 printrv$s;"error: “"i<shift>/<spatie>19 

2260 ifsrand2thenprint” frame"<shift>/<spatie>da8s 

2270 ifsrand4thenprint“buffer vol"<shift>/<spatie>8c 

2280 ifsrandi28thenprint"verbinding verbroken"<shift>/<spatie>be 

2290 ifCpeek(673)andl)then2290<shift>/<spatie>bli 

2300 close2:print ho$<shift>/<spatie>eé6 

2310 printcl$S;chr$(142):poke53280,0:poke53281,0<shift>/<spatie>76 

2320 poke646,12:x=10: y=6: gosub380:printrv$chrs (176) “CCCCCCCCCCCCCCC"chr$(174)<s 
hift>/<spatie>6d 

2330 x=10:y=7:gosub380:printrv$"Bfl exit B"<shift>/<spatie>46 

2340 x=10:y=8:gosub380:printrv$"B : B"<shift>/<spatie>0o 
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x=10:y=9:gosub380:printrvs"Bf2 laden B"<shift>/<spatie>id 
2360 x=10:y=10:gosub380:printrvs"B B"<shift>/<spatie>25 
2370 x=10:y=l1:gosub380:printrv$"Bf3 agenda B"<shift>/<spatie>23 
2380 x=10:y=12:gosub380:printrvé"B B"<shift>/<spatie?53 
2390 x=10:y=13:gosub380:printrv$"Bf4 opslaan  B"<shift>/<spatie>54 
2400 x=10:y=14:gosub380:printrvs"B B"<shift>/<spatie>79 
2410 x=10:y=15:gosub380:printrvS"Bf5 adressen B"<shift>/<spatie>18 
2420 x=10:y=l16:gosub380:printrv$"B B"<shift>/<spatie>of 
2430 x=10:y=17:gosub380:printrv$"Bf6é terminal B’<shift>/<spatie?10 
2440 x=10:y=18:gosub380:printrvschrs(173) “CCCCCCCCCCCCCCE"chrs(189)<shift>/<spa 
tie>7b 
2450 getaS<shift>/<spatie>Sf 
2460 ifas=fi1$thenend<shift>/<spatie>bd 
2470 ifas=f3$then520<shift>/<spatie>32 
2480 ifas=f5$thenl1070<shift>/<spatie>13 
ifas=f6Sthen1920<shift>/<spatie>1lé 
ifas=f2Sthen2610<shift>/<spatie>63 
ifaS=f4$then28i0<shift>/<spatie>?6l 
goto 2450<shift>/<spatie>Sb 
x=5:y=10:gosub380:printchr$(176) "CCCCCCCCCCCCCCCCCCCC"chr$(174)<shift>/<sp 
atie>c9 : 
2540 x Lisgosub380:print"B B"<shift>/<spatie>c4 
2550 x 12:gosub380:print"B B"<shift>/<spatie>dd 
2560 xX 13:gosub380:print"B B"<shift>/<spatie>29 
x 14:gosub380:print"B B"<shift>/<spatie>24 
2580 x sprint B B"<shift>/<spatie>3b 
2590 x=5:y=16:gosub380:print”B B"<shift>/<spatie>32 
2600 x=5:y=16:gosub380:printchr$ (173) "CCCCCCCCCCCCCCCCCCCO"chr$(189):return<shi 
ft>/<spatierbo 
2610 gosub2530:x=6:y=11:gosub380:print"van "rvs"d"ros"isk of “rv$"c"ro$"assett 
e"<shift>/<spatie>ce 
2620 gosub360:ifas<>"d“andas<>"“c"then2620<shift>/<spatie>36 
2640 ifag="c"thenprintcl$:openl,1,0,"multi-data”:goto2660<shift>/<spatie>2c 
2650 openl,8,2,"O:multi-data,s,r"<shift>/<spatiera7 
2660 input#l,tt<shift>/<spatie>df7 
2670 forc=Otott<shift>/<spatie>s0 
2680 input#1,na$:input#1,vn$:input#1,ad$:input#1,p1$:input#1,teS:input#!,mos<s 
hift>/<spatie>55 
2690 ab$=nas$tleft$tsp$,25-len(na$))+vn$tleft$(sps,25-len(vn$))+ads<shift>/<spa 
tie>3c 
2700 ab$S=ab$+left$(sp$,25-len(ad$) )+pl$+lefts(sps,25-len(pl1$))+tes<shift?/<spa 
tie>20 
2710 abS=abSt+left$(sp$,25-lenttes) )tmo$:abs(c)=abs<shift>/<spatie>Sb 
2720 nextc<shift>/<spatie>6b 
2730 input#l,tl:input#1,t2<shift>/<spatie39 
2740 forx=tltol1:fory=0to30: forz=Otol8<shift>/<spatie>ld 
2750 input#l,a$(x,y,z):ifas(x,y,z)="*"thena$(x,y,z)=""<shift>/<spatie>2e 
2760 nextinextinext<shift>/<spatie?40 
2770 closel:goto 2310<shift>/<spatie>fa 
2810 t2=val(left$(dt$,2))-1:tl=val (mids(dts$,4,2))-l<shift>/<spatie>d3 
2820 gosub2530:x=6:y=ll:gosub380:print”op “rvS"da"ros"isk of “rvs "c"rosassett 
e"<shift>/<spatie>rbf 
2830 gosub360:ifas<>"d"andas$<>"c"then2630<shift>?/<spatier04 
2850 ifag=“c"thenprintcl$:openl,1,1,"multi-data":goto2870<shift>/<spatie 51 
2860 openl,8,2,"@0:multi-data,s,w"<shift>/<spatie>95 
2870 print#l,tt<shift>/<spatierbs 
2880 forc=Otottishift>/<spatiedraf 
2890 nas=mid$ (abs (c),1,25):vnS=mid$Cab$(c),26,25)<shift>/<spatie>59 
2900 ad$S=mid$Cab$(c),51,25):pls=mid$Cab$(c),76,25)<shift>/<spatie>79 
2910 teS=mid$Cab$(c),101,25):moS=mids(ab$(c),126,5)<shift>/<spatie>4b 
2920 print#1,na$:print#1,vn$:print#1,ad$:print#1,pl$:print#1,teS:print#1,mos< 
hift>/<spatieo44 
2925 nextc<shift>/<spatierd a7 
2930 print#l,ti:print#l,t2<shift>/<spatie>d0o 
2940 forx=titol1l:fory=0to30:forz=Otol8ishift>/<spatierd4d 
2950 ifas(x,y,z)=""“thena$(x,y,z)="x" <shift>/<spatie>8b 
2960 print#l,a$(x,y,z)<shift>/<spatie?21 
2970 next:next:next<shift>/<spatie>13 
2980 closel:goto2310<shift>?/<spatie?8d 
2990 poke54296, 15:poke54277,0:poke54278, 0: poke54276, O<shift>/<spatiedaa 
3000 poke54278, 240: poke54276, 33:poke54273, 100: poke54278,0:poke54296, O<shift>/< 
spatie>36 
8010 returnitshift>/<spatie>47 


* 
> 
* 
. 
* 
* 


2570 


Oa or an a 


Ho RH on 
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_COMMODORE DOSSIER AKTIEF PROGRAMMA’S | 


HARMONY 64 


Op het scherm verschijnt een : rond de pewuste toon een ac- en septiem. Door Joey Latimer 
piano-toetsenbordje waarmee u __coord op. Zeer geschikt voor = en John Jainschigg. 

13 tonen (6én octaaf) kunt ’aan- muzikale begeleiding. U heeft 

slaan’. De computer 2 de keuze tussen 7 mineur 


dimat54), 6(2,24),cC2, ont patience 
peechr$(146)+chrétiél): 1$= chr$(18)+chr$(161)<shift)/<spatie>0a 
m$=chr$(18)+chr$(98):s$= ee eee 
k$=chr$C18d+" "<shift>/<spatie>bo 
sa=0:f=-1:s=54272<shift>/<spatie>ib 
fori=Oto24:pokesti,O:nexti:pokest24, 15<shift>/<spatie>Se 
pokes+5,79:pokest6,234:pokest+12,79<shift>/<spatie>3l 
pokes+13,234:pokest+19,79:pokes+20,234<shift>/<spatie>l4 
reada$,g$<shift>/<spatierel 
fori=Oto54:aCi)=-li:nexti<shift>/<spatie>6i 
fori=Otol2:readk:atCk)=i:nexti<shift>/<spatie>4e 
fori=Oto24:readb(1,i1),b(2,i):nexti<shift>/<spatie>f£3 
fori=Oto2:forj=Otol:readc(i,j):nextj:nexti<shift>/<spatie>éb 
poke53281,0:poke53280, O0<shift>/<spatie>b7 
printchrs(147);tabCll>}ichr$(150);"*xx harmony 64 *x"<shift>/<spatiedd4 
print:print:printchrs(5)<shift>/<spatie>ca 
forv=ito9:ifv>6thens$=m$<shift>/<spatie>08 
print” "S1$3KSisS3k$ssSskSsmSsk$3<shift>/<spatie>37 
printsS;k$ss$;k$is$skSsm$sk$sré<shift>/<spatierdf 
nextv<shift>/<spatiedlc 
fori=5to33step2:p=int(i/2)-l<shift>/<spatie>82 
ifmid$(a$,p,1)="x"then240<shift>/<spatiere3 
poke214,8-fx4:print:printtab(i);mid$(as,p,1)<shift>/<spatie>10 
f=not f:nexti<shift>/<spatie>ib 
poke214,18:print<shift>/<spatie>dc 
printchr$ ¢150);~ lettertoets voor majeur-akkoord, “<shift>/<spatie>é4 
printtab(8);"<shift>+toets voor mineur, "<shift>/<spatie>Of 
printtab(8);"<ctrl>+toets voor septiem. "“ichrs(158)<shift>/<spatie>rc8 
K=peek(C197):ifk<>64then340<shift>/<spatierde 
ifsa=Othen290<shift>/<spatiedaa 
sa=Q:pokest4, 32:pokes+il,32:pokesti8,32<shift?/<spatie>re3 
poke214, 15:print:printtab(15);* , “<shift>/<spatie>5c 
goto290<shift>/<spatie>f9 
k=k-8:ifk<Oork>S4then290<shift>/<spatiedda 
pee eck e cea cay ee cceccen oe 
ct=- (peek (653)=4)-Cpeek(653)>=1)<shift>/<spatie>78 
poke214,15:print:printtab(15)smid$(q$,ctx9+1,9)<shift>/<spatie>do 
pokes+4, 23: pokes+i1,93:pokes+16, 33<shift> /<spaticd02 
pokes, b(2,a(k)):pokesti,b(€l1,aCk))<shift>/<spatie>25 
pokest7,b(2,aCk)+c(ct,0))<shift?/<spatie?5!1 
pokest+8,b(l,atk)+c(ct,0))<shift>/<spatie>57 
pokes+14,b(2,a(k) tc (ct, 1d )J<shift>/<spatie>56 
pokest+15,b(1,atCk)+c(ct,1))<shift>/<spatie>Se 
sa=ligoto290<shift>/<spatie>dad 
data qZw3exr5tey/7uxi<shift>/<spatie?sa 
data xxmajeurxxxkmineurxxxseptiemx<shift>/<spatie>Ob 
data 54,51,1,0,6,9,8,14,11,17,16,22,25<shift>/<spatieroo 
data 8,97,8,225,9,104,9,247,10,143,11,48,11,218<shift>/<spatie>3f 
Gata (2,143,13,78.14.24, 14,239. 15,210, 16, 195<shift>/<spatie 20! 
data 17,195,18,209.19,239,21,31,22.96,23,18i<shift>/<speatierla 
data 25,30,26,156,28,49,29,223,31,165,33,135<shift>/<spatie>i4 
data 4,7,3,7,7,10<shift>/<spatie?05 
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Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en aanbiedingen van illegale programmatuur worden 


geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van peer op 


hoogste 7 regels van 2 


IK BIED HARDWARE AAN 


@ Siemens Inktjet-printer PT 88. werkt 
geruisloos, niet gebruikt, f 1775. tel 
085-635331. 


@ CBM-64 + cass. + joyst.+ 6 boeken 
+ Simon's Basic + KCS tape speedsaver 
combi + 400 spelletjes op cass, 1 jaar 
oud 19300FR of f 1070. Bart Viaminekx, 
Belgié tel (na 17 u) 703/3832568. 


@ Uit fin. nood helaas tk. 664 (6 mnd), 
recorder, div. software, stofhoes, hand- 
boeken (w.o. Tim Onoske): f 750 tel (na 
18.00 uur) 020 866152. 


@ CBM-64 + trafo + cass. merk phono- 
mark, evt. te ruilen tegen disk 1541, 

7 540. Tevens te ruil ca. 1200 progr. (op 
disk) J.J. Martens, Vaarkamperengweg 
36, 6741 XW Lunteren. 


@ Te kp.: CBM-64 + cass. + Philips TP 
200 monitor + 1547 disk drive + 1520 
printer/plotter + div. handleidingen 

f 1750 R. Kooyman, tel 01804-14530. 


® Commodore Tape Queen snellaadmodu- 
le (50, tevens gevr. 1541 diskdrive. tel 
{alleen in het weekend) 04132-64900 


© TRS-80 color computer 64 K ultv + 
printer + software + lektuur (1/2 jr. 
oud). Alles in een koop: f 700,- event. + 
datarec. (f 856,-). Tel. 05613-1990. 


@ Dubb. diskdr. 4040 met [EEE488 inter- 
face drive. lets defect. Prijs: f 500,-. Tel. 
050-256006. 


@ Nwe Eprom v.d. 80241526 U printer. 
Werkt 3% sneller. Werkt met printershop 
4+ papercips. Eprom voor f 65,-. Tel. 
(wssen 19 en 22 uur) 070-468095. 


@ Wegens aanschaf CBM-64 video-pac 
67000 + 9 spelen (oa pac-man). 1 jr. 
oud. Prijs: f 250,-. Tel. (na 14 uur) 
013-638628. 


@ Radar-Basic 50K. Prijs: f 75,-. Music 
construction set. Prijs: f 70,-. Geheuge- 
nuitbr. (32K schakelbaar) voor ViC-20. 
Prijs: f 100,-. R. vd Heeft, Bijland 818, 
5403VM Uden. Tel.: 04132-62881. 


@ MPS-803 printer met Tractor Feeding 
v. doorvoer kettingform. 3 mnd. oud + 

nog lop. garantie. Prijs: ¢ 400,-. W. vd 

Poll te Putten. Tel; 03418-54520. 


@ Printer MPS 803 (1/2 jr. oud). Prijs: 
f 300,-. H. Boonstra, Seringenstr. 49, 
2681EK Monster. 


@ Printer Seikesha GPIOOVE + papier. 
1 jr. oud. Prijs: £ 250,-. KCS Disk Speed- 
Leaper + handl. Prijs; f 55,-. Printer 
event. aok te rullen tegen monogrome 
monitor ziw.amber. Tel: 02230-36951. 


@ CBM-64 + Philips monitor + Brother 
printer HRS + datasette 1530 + Simons 
basic + boeken + tijdschr. In een Koop 
f 950,-. A. Meijer, Oostereind 111, 1212 
VE Hilversum. Tel.: (tot 17 uur) 
035-887480. 








® C-64 + software (excl. datasette). 
Prijs: { 500,-. Tel.: 01720-34589. 





ave. Een advertentie mag ten 
aanslagen lang zijn. 





@ Seikosha printer GP100. Direct aan te 
sluiten op de Commodore. B.Kip, Postbus 
68, 9530AB Borger. Tel.: (na 17 uur) 
05998-12834. 


® 7.9.a.n. €-64 met ned. handl. en hoes 
voor f 500,-. Wil Rikmanspoel te Zeist. 
Tel.: (tussen 15 en 17 uur) 
03404-52551. 


© CBM-64 + datasette + prg. C-64 
heeft ingeb. viditelaansl., snellader v ca- 
sette ingeb. Prijs: { 500,-. R. Schnabel. 
Tel.: (tussen 18 en 23 uur) 020-253644. 


@ Vic-20 + QKB + ned. handl. + spe- 
len + boeken + datarec.. Event. te rui- 
len v. MPS 803 of floppy-disk. Prijs.: 
n.o.tk. Tel. (na 18 uur) 079-515335. 


@ Philips P2000T Computer + 4 bandjes 
+ Basic probeerboek. Prijs: t.e.a.b. Tel. 
03407-2225. — 


@ Plus/4 + 1541 drive. Makkelijk v. kl. 
zelistandige door ingeb. software. Incl. 
handl. v. computer en software. Prijs: 

# 550,-. Tel.: 01608-21849. 


@ Zero 80 kol.krt v.d. CBM-64. Prijs: 
f 110,-. Niek Remkes. Tel. 
020-251686-274905. 


@ CBM-64 + 1541 drive + cass.rec. + 
logo + Pascal + Simons + Pilot + boe- 
ken + cartridge. Alles in een prijs voor: 
f 1900,-. W. Stigter, Suppestr. 8, 
5151KR Drunen. Tel.: 04163-73898. 


@ IEEE488 interf. + handl. (1x gebr.). 
Prijs: f 150,- of te ruilen tegen een z/w 
camera + adept. Stack lightpen + softw. 
+ handl. Prijs: f 75,-. Event. te ruilen te- 
gen Koala pad e.d. J.Raats. Tel.: 
045-310404. 


© Casio FX-9000P + interf. + 32K 
perm. RAMmodule + perm Matrixmedule. 
Printer Epson MX-82 in zeer goede staat. 
J. zerwice te Meeuwen (Belgie). Tel. na 
19 uur) 011-462434. 


@ Interface CBM-64 + AVT 80X printer. 
Prijs: { 35,-. Softwarematig (incl.tape) 
Prijs: f 20,-. H. Sanders, W J Tuynstr. 
38, 1131ZJ Volendam. 


@ Atari 800XL + veel softw. 
Tel.078-158171. 


@ Vic-20 motherboard compl. met 
module-(cartridges) uitbr. Prijs: ¢ 125,-. 
Tevens modem dataphon $ 21D + softw. 
v. C-64. Prijs: f 250,-. Tel.: 050-131537. 


@ Voor Vic: Hes writer (tekstverw.), 
Forth, Romeassettes, Spellen (Mole At- 
tack, Gorf, Pipes). R.Houtkamp. Tel. 
020-734926. 


@ Hard- en software o.a. snelladers en 
plm.2000 progr. (Finad, Vizawrite, Super- 


_ base Lightpen, Auto-dail, enz.). Tel. 


03200-48716. 
@ Lightpen v. CBM-64 met toebeh. Te- 
vens handl. v. Simons basic. Prijzen: 

no.ik. Tel. 023-289616. 


@ Commodore 64, printer Panasonic KX- 





prog., floppy 1541, Cassetterecorder, me- 
talen kasi en monitor. Alles in een koop. 
Prijs: 2600,-. Tel. 02209-2267. 


@ Vic-20 + OKI printer + div. uitbr. + 
27K RAM, Prijs; ¢ 500,-. P. Creemers, 
Faisantenstr. 41, 1211PT Hilversum. Tel. 
035-10114. 


@ Weka Combi Turbotool. Prijs: f 500,-. 
The Final cardridge H+P. Prijs: f 75,-. 
Tevens softw. gevr. H. Gerritsen, St 
Jansgildestr. 14, 7037DM Beek (Gld). 


@ C-16 met datasette, software en ned. 
handl. Prijs: f 275,-. Tel. 05146-3573. 


@ Commodore Vic-20 + 8K geheuge- 
nuitbr. + ROM pack + joystick + 6 boe- 
ken + veel softw. Prijs: f 300,-. W.M. 
Hartman, T Brandsmastr 31, 3762dJ 
Soest. Tel. 02155-11201. 


@ Vic-20 + super exp. cartr. + geheu- 
genuitbr. + spel (cosmic cruncher) + 3 
boeken. Liefst in een koop. Prijs: n.o.t.k. 
Tel. 630-897463. 


@ KCS diskspeedioader 64 met ingeb. 
machinetaalmon, Prijs: f 125,-. Event. te 
ruilen met softw. op disk of printer.Te- 
vens games (g.a. Exploding Fist) te ruilen. 
Tel. 05430-20958. 


@ Matrix printer MPS 801. 1 1/2 jr. oud. 
Prijs: { 425,-. Eric van Slooten. Tel. (na 
17 uur) 03410-22370. 


@ Philips comp. (97400) + 22 spelen 
16K Ram/ 16K Rom + cass. rec. + 3 
boeken + 2 joyst. V. Greve te Yerseke. 
Tel. 01131-3258. 


@ CBNI-64 + cass.rec. + softw. + Si- 
mons basic + handl. G. Lauwerier, Kou- 
terbaan 164, B-9470 Denderleeuw (Bel- 
gie). Tel. 053-668532. 


@ CBNI-printer Model 4023 (IEEE-488) 
alsmede interpod interface. P.Janssen. 
Tel. 04990-71849. 


@ Brother HR-5 printer + adapter. Prijs: 
# 500,-. Remko Meijer. Tel. 
02208-94286. 


@ Spectrum-48 + 400 prog. + data- 
cass.rec. + 3 orig. progr. Prijs: f 400.-. 
Tel. 070-639484. 


@ Prof. off. comp. supervisor Philips 
compl. harddisc. monitor, toetsenbord. 
Event. meerdere term aan te sluiten + 
ned. gebr. aanw. Prijs: n.0.1.k. Tel. 
02153-14589. 


IK BIED SOFTWARE AAN 


@ Commodore Logo C-64 105 engelstalig 
boek met 2 discettes. Prijs: n.o.t.k. D. 
Macquoy, Merelstr. 24, B-3295 Schaffen 
(Belgie). 


@ Simons Basic + handi. + Ghost- 
busters — spel. Prijs: f 75,-. G. Huisint- 
veld te Bergen op Zoom. Tel. (na 18 uur) 
01640-37435. : 


@ Zakelijke prog. voor Commodore ook 

voor £128 (80 kolom). ik schrijf ook vol- 
gens uw behoefte. Tevens gevr. 3K RAM 
uitbreiding voor VIC 20.Inl. Henri Schuer- 
wegen, Lierbaan 202, 2870 Putte, Belgié. 


@ Org. Ghostbusters met beschr. Prijs: 

f 25,-. Tevens lijst gevr.van progr. om te 
ruilen. Wie heeft het werkende C.D. vidi- 
telprogr.? J.Raats, Postbus 30121, 
63902) Landgraaf. Tel. 045-310404. 


© instaspeed basic-comp. org. versie. 
Prijs: { 150,-.Datamanager 2 orig. uitv. 
Prijs: { 180,-Superclone.De orig. Clone 
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machine in super uitv. Prijs: f 80.-. BR. 
Muller, Zoom 1723, 8225KL Lelystad. 
Tel. 03200-31097. 


@ Vic-20 spelmodule, starbattle. Prijs 

f 15,- + boek. Verslavende spelen voor 
Vic-20. Prijs: f 10,- + boek. Basic-progr. 
Prijs: f 7,50 + C-64 spellen. Prijs: f 1,-. 
F. de Lange te Wormerveer. Tel. : 
075-288213. 


@ 250 titels softw. (adm. en spel) te rui- 
len voor CBM-64. Uw lijst voor de mijne. 
J. van Damme, Azalealaan 70-C, B-2690 
Temse (Belgie). Tel. 03-7711179. 


@ Pim. 100 spelen op cassette v.d. 
6-64. Schrijf voor lijst naar Hr. Pauw, 
Kooikersdreef 517, 7328BP Apeldoorn. 


@ C-64 cartridges musiccomposer en too- 
thinvaders. Stevie Roelfsema te Haren 
(Gn). Tel. (tussen 17 en 18 uur) 
050-345062. 


@ CBM-64 spellen (tape). Vraag lijst. A. 
Mulder, Spongert 7, 6413LS Heerlen. Tel. 
045-225449. 


@ Voor CBM-64 Simon’s basic oefenboek 
van D.Becker + sound en graphics, Mel- 
bourne House. Prijs: { 35,- + f 15,-. Da- 
ve Kerkhove. Tel. (alleen vrijdags tussen 
18 en 19 uur) 01784-62513. 


@ Loonprogr. voor elke branche tevens 
netto-bruto en bruto-netto voor CBM-64. - 
P.Kleijnen, de Beaufortstr. 46, 6231EB 
Meerssen. Tel. 043-642091. 


@ C-64 softw. Keuze uit 1300 progr. te 
koop of te ruilen met diskdr. Tel. 
070-934504. 


@ C-64 Sreendump voor MPS-802 + 
handl. op disk. Maakt afdr. van BV dias- 
how, Simons-basic, strippoker ed. Softw. 
altijd welkom. Luc Van Esch te Zonhoven 
(Belgie). Tel. 011-816363. 


@ Printshop een drukkerij voor thuis voor 
de CBM-64 op disk. Geschikt voor alle 
printers. Prijs : f 100,-. Tel. 
01892-14365. 


IK ZOEK HARDWARE 


@ (k zoek een mairix-hardware voor 
Commodore 64. J.T. Bijlsma, tel. 
05997-1475. 


@ Vic voice voor Vic-20. W. van Eeke- 
len, Postbus 1892, 4801BW Breda. Tel. 
076-872969. : 


@ Monitor met geluid. Stuur prijs en 
spec. naar W.A. Groot, Populierenlaan 7, 
1602SW Enkhuizen. 


@ Schema’s en softw. voor CBM-64 — 
Experimenten met soundsampling/dig. De- 
lay, etc. Harm Verbeek, Noordsingel 104, 
3032BH Rotterdam. Tel. 010-654429. 


@ Commodore 803 printer. Event. DG 
801 voor DG CBM-64. F. Engels, Spoor- 
laan 57, Nootdorp. Tel. 01731-7073. 


@ Hard/software + inform. v. omzetten 
morseseinen in schrift. H.Schulten, Ta- 
lingstr. 11, 7491ZP Delden. 







Uw advertentie-opdrachten 


t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgstraat 11 

1059 AT Amsterdam 













rte) Solita es 18a 


Dit is het laatste Aktief van de eerste jaargang Commodore Dossier of het eerste nummer van de tweede jaargang, net hoe w 
het bekijkt. In elk geval voor ons een mooie gelegenheid om u als abonnee te vragen wat u van Commodore Dossier vond het 
afgelopen en jaar en, belangrijker nog misschien, wat u het volgend jaar van ons verwacht. 

Hoe meer ingevulde formulieren we krijgen, hoe beter we weten wat onze lezers van ons verwachten. : 

Een postzegel hoeft het in elk geval niet te kosten, want u kunt het ingevulde formulier — of een fotocopie als u dit blad niet 


wilt beschadigen — opsturen naar: 
Commodore Dossier — Antwoordnummer 16037 — 1000 SE Amsterdam 


Ik ben abonnée sinds:..... 














Ik heb een: L] C64 CL) Vic20 LJ Plus4 (J C16 CJ C128 (] ander, namelijk 





























Sinds:........................................................ a. 
























































Met: printer [| plotter (] diskdrive LJ tv L] monitor LJ joystick (1 modem CL! en bovendien 



























































Ik wil binnenkort aanschaffen: (] printer () plotter (J diskdrive (1 monitor C1 joystick 


























ander, namelijk 


Ik gebruik mijn computer voornamelijk voor: 
spelletjes ] tekstverwerken (J huishoudelijke administratie (1) zelf programmeren 





















































Ik overweeg binnenkort een andere computer aan te schaffen en wel 






































Mijn programma’s: i copiéer ik [] maak ik zelf 














Ik ben abonnee geworden van Commodore Dossier omdat 
Het blad is wel/niet wat ik ervan verwachtte. 


Het slechtste artikel van het afgelopen jaar vond ik 


Het beste artikel... a, . ee. ._._.=—h—hmmOeM 
Als het aan mij ligt, komen er in Commodore Dossier: : 
meer: (] alzemeen informatieve artikelen minder: algemeen informatieve artikelen 














software-beschrijvingen 
hardware/randapparatuur-vergelijkingen 
listings 

| ’zelf doen’-onderwerpen 

tips & trucs 

*zelf programmeren’-artikelen 
wedstrijden 

columns 

leesverhalen 



























































Als het aan mij ligt, komen er in Commodore Dossier Aktief: 
meer: nieuws minder: nieuws 

CJ listings listings 

CI tips&trucs tips&trues 






















































































a) 














software-beschrijvingen 
hardware/randapparatuur-vergelijkingen 
listings 


| ’zelf doen’-onderwerpen 


tips & trucs 


[J *zelf programmeren’-artikelen 


wedstrijden 
columns 
leesverhalen 


Hoe waardeert u de neven-activiteiten van Commodore Dossier (cijfer 1-10) 












































LJ Commodore Dossier in Viditel [J Listing [] hulpdienst (] programma’s op cassette/schijf L] technische hulpverlening 





























Nog nooit werd in een boek zo diep 
ingegaan op alle facetien en 
mogelijkheden van de C64! 



































































TWEE UNIEKE OPBOUWWERKEN 
VOOR COMMODORE BEZITTERS 





_ STEEDS UP TO DATE 


Stap voor stap leert u te werken met 


@ Basic @ Hulptalen @ Geluid 
® Graphics & Sprites 

@® Accessoires 

@ Machinetaal. 


Blijf niet meer steken in een eenvoudig 
spelletje! 

Door de logische opbouw van de uitgave 
en de professionele voorbeelden komt utot 
een volledig gebruik van uw computer en 
de accessoires. 

Wegwijs worden in programmeertalen. 
Aan de hand van voorbeelden met prak- 
tisch te gebruiken subroutines leert u opti- 
maal gebruik te maken van uw C 64. Niet al- 
leen in BASIC maar ook in PASCAL, LOGO, 
PILOT Simons’s Basic, ADA en minder be- 
kende talen. 

De grafische mogelijkheden en het ge- 
luid vormen twee sterke kanten van de 
C64. Een C64 heeft 4 toongenerators 
waardoor de geluidskwaliteit van de ma- 
chine bij velen al beroemd is. En uiteraard 


Indeze unieke uitgave wordt in begrijpelijk 
Nederlands een breed scala van de popu- 
laire maar moeilijke spellen voor de C.64 
uitgelegd. Aan de van duidelijke beschrij- 
vingen en afbeeldingen (schermfoto’s) 
worden de spellen systematisch bespro- 
ken. Door middel van trucs (praktische 
handigheden), speeltips en plattegronden 
dringt u door tot de essentie van het spel. 


De volgende categorieén van spellen 
worden besproken: 


—Simulatiespellen 
~Avontuurspellen 
-Denkspellen 

—Beweeg- en schietspellen. 


Daarnaast wordt veel aandacht besteed 
aan de accessoires, die bij het spelen van 
spelien onmisbaar zijn. 














zullen de meest bekende melodieén hier in 
de toekomst niet ontbreken. 

Wat betreft de grafische mogelijkheden 
komen vooral het juiste gebruik van de 
sprites aan bod. 

Nuttige adressen, produktinformatie, tips 
voor het gebruik van apparatuur en pro- 
grammeren vormen de afsluiting van een 
werk dat beginner en gevorderde C 64-ge- 
bruiker van begin tot eind zal boeien. 
GRATIS UNIEKE HULPMIDDELEN 
Reeds in het basiswerk zijn enkele unieke 
hulpmiddelen opgenomen: 

@ ,cheatsheets”, bijvoorbeeld program- 
meer-commando’s samengevat bij en op 
het toetsenbord. @ Computertekensja- 
bloon, waarmee flowcharts, grafische soft- 
ware en sprites, ontwikkeld kunnen wor- 
den. ®@ Papier voor grafisch ontwerpen. 
EN OP KORTE TERMIJN: 

Software op floppy en/of cassette en spe- 
ciale aanbiedingen. 






Welke spellen kunt u zo al verwachten? 
Een kleine greep: 


— ULTIMA Ill 

-— Ghostbusters 
—Natocommander 
-Cluedo 
-Summergames 1+2 
— Sky Fox 

—Bruce Lee 


En op het creatieve vlak, 0.a.: 


~-Music Construction Set 
-Koala touchpad 
— Sketchpad. 


In het basiswerk zullen ca. 70 spellen op- 
genomen worden, in de aanvulling telkens 


ca. 20. 
ADV. 009 


BESTELBON 










Zend mij tot wederopzegging het aange- 
kruiste naslagwerk, waarbij ik mij tevens tot 
wederopzegging abonneer op uw aktualise- 
rings-service. Na ontvangst betaal ik f99,— 
exkl. porto. 

De aktualiseringen kosten elk f49,95. 











J 


Naam: 
Adres: 
PC/Plaats: 
Handtekening: 1659 


Het is als bij de krant: vandaag nog aktueel, morgen ,oud 
nieuws”. Op nauwelijks enig ander terrein gaat de ontwikkeling 
zo snel als in de computer-technologie. Regelmatig worden 
nieuwe en betere programma’s ontwikkeld. Reden voor onsom 
deze boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvangi u circa 4 maal per jaar een aan- 
vulling van ca. 120 pagina’s op uw naslagwerk, welke u eenvou- 
dig kunt invoegen in het basiswerk. U blijft dus beschikken over 
een boek dat NOOIT VEROUDERT. 





































(Van Basic tot machinetaal op C64 


(_]Het zwaardere werk op C64 








Bon zenden aan WEKA UITGEVERIJ BM, 
Antwoordnummer 15412, 1000 PZ Amsterdam. Ook leverbaar 
via de erkende boekhandel én de computer- en elektronica-winkels. 






WEKA UITGEVERIJ B.V. 


Postbus 61196 - 1005 HD AMSTERDAM - 020-86 71 31 
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WEES BLIJ DAT HET EEN SPELLETJE IS! 


vernieuwende superkwaliteit van RadarSoft* 


ZENUWSLOPENDE 
SPANNING, HYPER-STRESS 
EN PURE LOGICA! 

EEN LUGUBER STUK 
SOFTWARE DAT ZELFS DE 
HAREN VAN DE ZWAARST 
BEPROEFDE AVONTURIER 
OVEREIND ZAL KRIJGEN. 
De Sekte ‘neemt U mee naar de 
verlatenherd van de Schotse 
Hoogianden en plaatst U voor een 
bouwvallige kerk Een geheim dossier 
verhaall over de mysterieuze 
verdwyning van de sekteleider en 2yn 
niet geringe prive-vermogen! Deze 
verdwining is volgens het dossier 1e 


aanwezigheid drukt als een vioek op de 
naaste omgeving, de bevoiking 1s in 
dolle paniek geviucht en de kerk is 
totaal’ en. U heett het sterke 
vermoeden dat hel verdwenen sekte 
fortuin zich ergens in die kerk bevindt 
U bent niet bang uttgevalien? 

Of toch eigentijk wel 


EEN NEDERLANDSTALIGE 
GRAFISCHE 
ELEKTRONISCHE ROMAN met 

tientalien tekeningen in kieur 

volledige zinsinvoer' (voorzetsels 

iidwoorden, understatements,_) 

3 stemmige muziek 

save mogelikherd 

100% machinetaal (62 K) 


“door John Vanderaart, auteur van 0 a 


Eindeloos, Steen der Wijzen, Horror 
Hotel, Zone 7 en Eindeloos 


‘Andere kwaliteitsprogramma's van 


100 m? spel - 500 schermen 


een technisch hoogstandje van RadarSoft* 


Een absolute topper. 

Een echt Arcade-avontuur 
dat alleen door de aller- 
besten en de allerslimsten 
tot een goed einde kan 
worden gebracnt. 


Tiydens een ruimte-expeditie op een van de 
manen van Neptunus is het kosmische 
superwezen in zijn wintersiaap gestoord, waarna 
het zich, zwaar gepikeerd, terugtrok in de grotten 
van het v.m. toeristisch paradijs EINDELOOS op 
aarde. Dit met alle gevolgen voor onze 
samenteving van dien 

Daal af met een met raketten geladen wentel: 
wiek en vecht, vlieg en zoek u een weg door de 
meer dan 500 schermen zinderende aktie. 

Zoek en verjaag het kloppend hart van het 
superwezen 


RadarSoft zal de volharders rijkelyk belonen. 
Uw wederverkoper weet er alles van! 


- 500 schermen smooth scrollend 
gevaar 
- 100% machinetaal... 62K 


* door John Vanderaart de auteur van 0a 
Steen der Wiyzen, Horror Hotel en Zone 7 


*Letterstress - Radarbasic 50K - Databasis 


RadarSott voor uw CBM64 zijn: © 
- De grotten van Oberon - Eindeloos 
5 D) Pieceeicstnn cele cue cay Pere ecient Serene ys euler eset 
IDS INS { Picasa curens ri voor uw CBM64 zig. Topografie Nederland/- 
BAe at- ler \ier-Wlosl Le Europa/Wereld - Tempotypen eee 


Rida eee Colt gr te eS tl =r les WU co ant OIC Cu lOYs NE 
Grete KAI 


BASF Fle 


+ Databasic - Steen der Wijzen 
plied uae wenn alata 


- Steen der Wijzen | Tijdreizigel - Anonimus 


NEM ciersounirs Verkrijgbaar bi, de off, RadarSoft dealers 0.a. Vroom & Dreesman, Dixons, Fotoquelle eva. - Horror Hotel - Nautilus - Zone|7 











BASF FlexyDisk 5,25”, 
9,29”HD, 8” 


Volledige bedrijfszekerheid nu bij 


twee keer zo lange levensduur: 
gemiddeld 35 miljoen lees- 
schrijfkoppassages per spoor. 


BASF FlexyDisk Science 
5,25”, 5,25”HD 

De top-diskette voor gebruik in 
wetenschap en techniek. 


Temperatuurbestendig tot +70°C. 


Volledige oppervlaktecontrole. 
Gemiddelde levensduur van 70 
miljoen lees-/schrijfkoppassages 
per spoor. 
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rlexy Disk 





BASF 


Flexy Disk 


Scenics 


i) 


BR BSSESEERRRERS GRY BRS eSeeee BBSRRERFAIIIIth 


100% certified th 100% certified 








\ 








Disk 


BASF FlexyDisk 
3,5” 

De diskette met extreem 
hoge registratiecapaciteit 
voor de nieuwe micro 
disk drive generatie. 
Leverbaar in 1D en 2D 
uitvoering. 


BASF Nederland BV. 
Divisie Datatechniek 
Postbus 1019 

6801 MC Arnhem 
Tel. 085-717302 


os 
‘BASF 





Bedrijfszeker door top-technologie 
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@ 
sch akelprinciPe 


@ 
die yolledié BUITEN het Comme 
@ en je in staat 1S pROGRAM 
e NDERBREKEN en wee! re VERVOLCEN! (pAUZE) 
Ne met een grafisch yeuzemen™ dat yanuit ELK 
MAot spel is aan te roepen! 
ie vanuit ELK pROGRAMMA ot spetee™ 
ale printer heeft 


erm kan maken- 
en entronics of een geriecle 
yan het HIRES plaatie- 
mma uite rd 


@ 
PROGRAM 





je andere EPSON © 
K 


zelfgedel niee 


Enve 
* r 
rijwaarde” 


xx Print geen 


DE POW 
ER CART 
RIDGE IS 
VERK 
RIJGBAAR BI} DE MEES 
TE COM 
MODO 
RE DEAL 
ERS. 


Heeft u 
geen dealer i 
+ imuw oni 
geving, dan 
> kunt a 
ook best 
elle: 

BANK: AMRO oe overmaking v 
08.04.558 POSTG a het bediag plus, 5 
: 3793232 . 5,- verzendk 

osten of o| 

nder remb 
ours. 


— Tru 
aITcoo 
- jot ice 
-, Simon Vestdijk Erf 177. 
, 3315 CW Dordrecht 
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